Solved: VBA Subscript out of range errors on sheet code

[simora]

I'm merging multiple sheets into one and this code keeps giving me a
Run-time error '9':
Subscript out of range
at this point.

 
Sheets(i).Range("B1").Copy Destination:=Sheets("Masterlist").[A65536].End(xlUp).Offset(1, 0)

Changing it to this does not help;

 
Sheets(i).Range("B1").Copy Destination:=Sheets("Masterlist").Range("A65536").End(xlUp).Offset(1, 0)

Here's the rest of the code, run from a Excel UserForm:

 
Dim i As Integer
Dim LastRow As Long
Application.ScreenUpdating = False
 
'   Start loop, loop from 3 to the count of how many worksheets
For i = 3 To ThisWorkbook.Worksheets.Count
            Sheets(i).Activate
            If ActiveSheet.Range("B3") = " " Then Exit Sub
            If ActiveSheet.Name = "New person" Then Exit Sub
            LastRow = Range("A65536").End(xlUp).Row
            
            
        Sheets(i).Range("B1").Copy Destination:=Sheets("Masterlist").[A65536].End(xlUp).Offset(1, 0)
                
        Range("A3", Range("A65536").End(xlUp)).Resize(LastRow, 26).Copy Destination:=Sheets("Masterlist").[A65536].End(xlUp).Offset(1, 0)
Next i

Any ideas why I keep getting this error and how to correct it.