What am I doing wrong here?
Sub Appenddata()
Dim lastrow1 As Long, lastrow2 As Long
Dim ws1 As Worksheet, ws2 As Worksheet
Dim WB As Workbook
Set WB = ThisWorkbook
Set ws1 = WB.Sheets("ACT")
Set ws2 = WB.Sheets("OFC")
lastrow1 = ws1.Range("A" & Rows.Count).End(xlUp).Row
lastrow2 =...