Delete column after last cell with filled data in row

[GauciG]

Hi

I am working round deleting all the columns following the last filled cell in row 1

I have the following code but I am stuck:

Sub DeleteColumns()
Dim LastCol As Range
Dim LastColCellNumber As Long
With ActiveSheet
Set LastCol = .Cells(.Columns.Count, 1).End(xlToLeft)
Columns(LastColCellNumber + 1 & ":" & Columns.Count).Delete
End With
End Sub


Any help appreciated
Thanks

 

[Fluff]

Try

Sub DeleteColumns()
Dim LastCol As Long
With ActiveSheet
    LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
    .Range(.Cells(1, LastCol + 1), .Cells(1, .Columns.Count)).EntireColumn.Delete
End With
End Sub