Hi
is this what you're looking for??
With ActiveSheet
Range("B2", .Cells(.Rows.Count, "B").End(xlUp).Offset(1, -
1).Resize(200, 1)).Clearcontents
End With


--
Regards
Frank Kabel
Frankfurt, Germany

Robert Christie wrote:
Hi everyone
I'm trying to find the last cell of data in Column B,
offset 1 row down and 1 column left, then resize down 200
rows in column A and clearcontents.
My attempt so far, selects all cells from A2 down 200
rows past the last cell in Column B.
I'm trying to achieve this without selecting ranges.
Code so far;

With ActiveSheet
Range("B2", .Cells(.Rows.Count, "B").End(xlUp).Offset(1, -
1).Resize(200, 1)).Select
End With

Note!! "Select" is in code just for testing.

TIA

Regards Bob C.