Remove last value in each column (different sizes)

[kaaabem]

Hi

So, I have one worksheet with columns, which contain numeric values. They are different in size (e.g. column A has 560 cells with values, column B 1300 cells etc...). I would like to delete last cell that still has value in each column.

Any ideas?

Thanks in advance, cheers

 

[Fluff]

Hi & welcome to MrExcel.
How abut

Sub kaaabem()
   Dim i As Long
   For i = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
      Cells(Rows.Count, i).End(xlUp).Value = ""
   Next i
End Sub

 

[kaaabem]

Thank you, works perfectly.

 

[Fluff]

You're welcome & thanks for the feedback