根据更改的列表复制并粘贴到新工作表中

Question

我需要帮助复制部分工作表并放入新工作表。但是我只需要标题和点名称。这是我目前正在进行的工作，但它只复制标题。

Serializable

我正在使用的列表根据提供的数据而有所不同。在此先感谢您的帮助。

Answer 1

我能够用更简单的方法解决它，谢谢你的帮助@BruceWayne

Sheets("Input Raw Data").Select
counter = WorksheetFunction.CountIf(Range("A2", Range("A2").End(xlDown)), "P*")
counter = counter + 1 'Moves down one row because of header

'Paste to Point Names tab
Range("A1").Select
Range("A1:A" & counter).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Point Names").Select
Range("A1").Select
ActiveSheet.Paste