Excel Move Row to Sheet2 and Append

Hello, I have some code that I found to 'cut & paste' a row of data from Sheet1 to Sheet2 which works great. The problem is, how do I get the code to append the data row by row? It will just replace the data right now. Any help is greatly appreciated.

Sub MoveActiveRow()

  Application.ScreenUpdating = False
     
    Dim strSheetName, strCellAddress As String
    strSheetName = ActiveSheet.Name
    strCellAddress = ActiveCell.Address(False, False)
     
    Rows(ActiveCell.Row).Cut
    Sheets("Historical Record").Select 'Change sheet name to whatever consolidated tab name is.
    Range("A" & Range("A65536").End(xlUp).Row).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
     
    Range("A" & ActiveCell.Row).Select
     
    Sheets(strSheetName).Select
    Range(strCellAddress).Select
     
    Rows(ActiveCell.Row).Delete
     
    Application.ScreenUpdating = True
End Sub

Try something like this...

Sub MoveActiveRow()

    Application.ScreenUpdating = False

    ActiveCell.EntireRow.Copy Destination:=Sheets("Historical Record").Range("A" & Rows.Count).End(xlUp).Offset(1)
    ActiveCell.EntireRow.Delete
    
    Application.ScreenUpdating = True
    
End Sub

Post your input file ,i will post a solution .

AlphaFrog

This works like a charm... exactly what I needed. Thanks very much for your help and time.