Copying data from Table but omitting header row

[WxShady13]

Sub CopyTables()
    Worksheets("SHMM Sections").Range("A3:G300").ClearContents
Dim lastrow As Long
   lastrow = Cells(Rows.Count, "G").End(xlUp).Row
    Range("A2:A" & lastrow).Copy
    Sheets("Sign-In Sheet").Select
    Range("A2").Select
    Worksheets("SHMM Sections").Range("A3").Paste
    
End Sub

I am working on copying data from one table into another table on a different worksheet. I can copy the table however the header comes in. The code below should omit the header, however it will not paste in the worksheet I have defined. Where am I going wrong?

 

[JackDanIce]

Try:

Sub CopyMe()
Dim x as Long
Dim arr() as Variant
With Sheets("SHMM Sections")
  x = .Cells(.Rows.Count, 1).End(xlUp).Row
  .Cells(3,1).resize(x,7).ClearContents
End With
With ActiveSheet
  x = .Cells(.Rows.Count, 1).End(xlUp).Row
  arr = .cells(2, 1).Resize(x - 1).Value
End With
Sheets("SHMM Sections").Cells(3,1).Resize(Ubound(arr, 1)).value = arr
erase arr

End Sub

 

[WxShady13]

Thank you for the reply...This code just returns the word Badge # in the SHMM Sections worksheet. I am copying from Sign-On Sheet in columns A through G with the rows being determined by how many students attend the course. It is writing to SHMM Sections worksheets.