Unable to get the specialcells property of the range class

[Isaac21]

Hello all, the following code is for a uni assessment. The error "Unable to get the specialcells property of the range class" appears when i attempt to run the code, when i debug the code the debugger flags the line
"lastRow = wsSrc.Range("A:A").SpecialCells(x1CellTypeLastCell).Row" I'm attempting to find the last row on a worksheet using this code

Can any one help me solve this issue,
Thanks
Isaac

Sub CombineWorksheets()
'(Header comments)
Dim wsSrc As Worksheet
Dim wsDest As Worksheet
Dim rngDest As Range
Dim lastRow As Long
Dim destRow As Long
Set wsDest = Worksheets("Combined")
Set rngDest = wsDest.Range("A2")
Application.DisplayAlerts = False 'supress prompt for worksheet deletes
 
'loop through all source sheets in this workbook
For Each wsSrc In ThisWorkbook.Sheets
    If wsSrc.Name <> "Combined" And wsSrc.Name <> "summary" Then 'all sheets except Combined
       lastRow = wsSrc.Range("A:A").SpecialCells(x1CellTypeLastCell).Row
       wsSrc.Range("Al", wsSrc.Range("I" & lastRow)).Copy Destination:=rngDest
       Set rngDest = rngDest.Offset(lastRow - 1) 'update the destination range
       wsSrc.Delete 'delete the source worksheet without a prompt
     End If
Next
Application.DisplayAlerts = True 'turn prompts back on
End Sub

 

[jasonb75]

Should be xl not x1.

 

[Isaac21]

Should be xl not x1.

Thank you so much i cant believe I made such a simple mistake, I have a lot to learn, the next line of code is giving me the error Method 'Range' of object'_Worksheet failed, would you know why that is? Thanks

 

[Fluff]

You've got an L not a 1 in the wsSrc.Range("Al",

 

[jasonb75]

i cant believe I made such a simple mistake

We have all made them at some point, such mistakes are often the hardest to find.

If you had used Option Explicit at the top of your code module then it would have raised the first mistake as an undeclared variable which might have been easier to identify, but I don't know of any way to error check the typo that @Fluff has picked up prior to execution.