Trying to find the right code to copy a column from one worksheet and paste to another

Yeah, I mean. I've just copy pasted that code for another button for a different table beneath the first one and it works perfectly! It's just this first table that's being a pain...

Sub ColHS()
Dim lcol As Long
With Worksheets("Trend Analysis")
    lcol = .Range("XFD33").End(xlToLeft).Column
    Worksheets("Health and Safety Pre Mob").Range("G4:G9").Copy .Cells(33, lcol + 1)
End With
End Sub

The above works just like it should for this other table further down.

But the same code doesn't seem to want to work for the other table..

Sub CollateProcurement()
Dim lcol As Long
With Worksheets("Trend Analysis")
    lcol = .Range("XFD7").End(xlToLeft).Column
    Worksheets("Procurement Pre Mobilisation").Range("I4:I22").Copy .Cells(7, lcol + 1)
End With
End Sub

I can't seem to figure out the issue!

Thank you very much for your time with this by the way, I appreciate it