Sub a()
Dim sDatas, wsA As Worksheet, wsB As Worksheet
Set wsA = Sheets(1): Set wsB = Sheets(2)
sDatas = Range(wsA.Cells(1, 1), wsA.Cells(Rows.Count, 1).End(3)).Resize(, 30)
wsB.Cells(1, 1).Resize(UBound(sDatas, 1) + 1).EntireRow.Insert
wsB.Cells(1, 1).Resize(UBound(sDatas, 1), UBound(sDatas, 2)).Value = sDatas
Erase sDatas
End Sub