Find Last Filled Column + 1 and Delete Range

[LukiiMaxim96]

Hi!

I automatically fill in this data in a certain range range but sometimes there is less data of which I need to get rid off eventually.
The last filled in cell in row 8 always equals 100%. This is the end of my data set. Accordingly, I need to get rid of everything which is past column AI.

First step would be to find the last filled in cell in row 8 offset + 1, right?
Next step would be to extract the column (AJ) from that and delete the range AJ7:AM10

This is surely possible, but I am stuck. Any tips?

Thanks in advance!

Best,
Lukas


I

 

[Saurabhj]

Hi,

Please check if below code helps you.

Sub lastCol()
Dim lastColumnFilled As Integer, lastColumHeading As Integer

lastColumnFilled = ActiveSheet.Cells(8, Columns.Count).End(xlToLeft).Column
lastColumHeading = ActiveSheet.Cells(7, Columns.Count).End(xlToLeft).Column

With ActiveSheet
    .Range(.Cells(7, lastColumnFilled + 1), .Cells(10, lastColumHeading)).Delete
End With

End Sub