copy row to new worksheet

[VbaHell]

I am looking for some help please

I would like to use some VBA code to copy all the rows starting from column "A" to "T" in worksheet "Sheet1" to a worksheet called "Data" but I would like it copied to column B onwards in the next available blank cell.

Is this possible please

 

[VoG]

Have you tried recording a macro. It should be straightforward,

 

[AlphaFrog]

Sub Copy_Data()
    
    Dim wsSource As Worksheet, wsDest As Worksheet
    Dim LastRow As Long, NextRow As Long, rngCopy As Range
    
    Set wsSource = Worksheets("Sheet1")
    Set wsDest = Worksheets("Data")
    
    LastRow = 1
    NextRow = 1
    
    On Error Resume Next
        LastRow = wsSource.Cells.Find("*", , , , xlByRows, xlPrevious).Row
        NextRow = wsDest.Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
    On Error GoTo 0
    
    Set rngCopy = wsSource.Range("A1:P" & LastRow)
    wsDest.Range("B" & NextRow).Resize(rngCopy.Rows.Count, rngCopy.Columns.Count).Value = rngCopy.Value
        
    MsgBox "Data copy complete."
    
End Sub

 

[VbaHell]

Thank you very much for this, works a treat