Copy paste rows (with numbers under column A) from one sheet to another

Try:

Sub PickMe()
Dim ws1 As Worksheet:   Set ws1 = Sheets("Sheet1")
Dim ws2 As Worksheet:   Set ws2 = Sheets("TableofContents")
Dim LR As Long
Dim icell As Range

LR = ws1.Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For Each icell In ws1.Range("A1:A" & LR).SpecialCells(xlCellTypeConstants, xlNumbers)
    icell.Copy Destination:=ws2.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Next icell
Application.ScreenUpdating = True

End Sub

Thanks for the code. Though, the code only pastes the numbers and not other content in that row. Can I use copy.entirerow in the same code?