Error 1004 when pasting to bottom row of workbook

[Knockoutpie]

HI all, I'm pasting the copied data to the bottom row of WB2 set below but receiving Error 1004, can someone please help figure out what is not coded correctly?

Private Sub CommandButton2_Click()

Application.DisplayAlerts = False
Application.ScreenUpdating = False
'Name workbook we are copying data from
    Dim WB1 As Workbook
    Set WB1 = ActiveWorkbook
    Worksheets("row").Activate

' Copy all data from row

    Dim rng As Range
    Set rng = ActiveSheet.UsedRange
    Set rng = rng.Offset(1).Resize(rng.Rows.Count - 1)
    rng.Copy


'name the workbook
Dim WB2 As Workbook
Set WB2 = Workbooks.Open("C:\Users\User1\Documents\Reports\Splits\Sales comm2022.xlsx")
     
' Paste the data from last file to bottom of the sheet
Worksheets("Consolidate - Jan to Sep 22").Activate
    Dim lastRow As String

    lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1
    Range("A" & lastRow).Select ' receive error here
Selection.PasteValues

' Close WB2 (last month)
WB2.Close

'   Go back to original workbook
    WB1.Activate

End Sub

 

[Micron]

What looks wrong to me: last row variable should be a long or integer, not string. I'd try fixing that first.

 

[Knockoutpie]

What looks wrong to me: last row variable should be a long or integer, not string. I'd try fixing that first.

Thanks, since i'm using multiple workbook the issue was using .cells.
I ended up changing lastrow section to the following by declaring the sheet name

    With Sheets("Consolidate - Jan to Sep 22").Range("A" & Rows.Count).End(xlUp).Offset(1)
        .PasteSpecial (xlPasteAll)
        .PasteSpecial (xlPasteValues)
    End With

More detailed reason why can be found here

Problem with VBA code which paste results in wrong Workbook

Hello. I have a problem with code which runs periodically (every 30 seconds). Basically, the code compares data from two Sheets (at the same Workbook) and then paste data (under certain conditions) from Sheet4 to Sheet1. However, when I open some other Workbook (window on that "other"...

www.mrexcel.com