Sub cleardown()
Dim xS As Integer
For xS = 4 To Worksheets.Count
With Worksheets(xS)
.Range(.Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1), _
.Cells(.Rows.Count, .Columns.Count)).ClearContents
End With
Next
End Sub

--

Regards,
Nigel




"Max" wrote in message
...
I've got a file with 3 sheets placed leftmost (no action to be taken),
then in all the rest of the sheets to the right of the 3 leftmost sheets
(a total of 50+ sheets is to the right) I need to clear entire rows below
the last row of data in col A (within each sheet). Thanks.