this how I get the data from sheet one to sheet 2

Dim sht2 As Worksheet
Set sht2 = Sheets("Sheet 2")

Selection.EntireRow.Select

With Selection
.Copy Destination:=sht2.Range("A2")
End With