Does this macro do what you want?

Sub ClearAfterRowOneData()
Dim LastRowOneColumn As Long
LastRowOneColumn = Cells(1, Columns.Count).End(xlToLeft).Column
Columns(LastRowOneColumn + 1).Resize(, 65 - LastRowOneColumn).Clear
End Sub

--
Rick (MVP - Excel)



"BlueAngel" wrote in message
...
I have a sheet that has formatting pre set for Columns A:BM. My data key
will be row 1. I need to clear all data in all rows to the right of where
row 1 data ends.

Example:


Col A Col B Col c Col D Col E
Row
1 Data Data Data


Data population ends in Cell C1, Clear all data D:BM.


Col A Col B Col c Col D Col E
Row
1 Data Data Data Data

Data population end in Cell D1, Clear all data E:BM

Can someone help with VBA that will automatically clear this?

Thanks in advance,