Selectではなく、Withを使う。[VBA]

Sheets("Sheet1").Activate
Range("4:4").Select
Range(Selection, Selection.End(xlDown)).ClearContents

上のコードは、以下のようにWithを使うとSelectを使わず書ける。

With Sheets("Sheet1")
.Range(.Rows("4:4"), .Rows("4:4").End(xlDown)).ClearContents
End With

Selectを使わない方が処理が早い。