赤文字部分は必要に応じて変更する箇所を現します。
全てを削除
Range("A1").Clear
文字・数式の削除
Range("A1").ClearContents
値を代入
Range("A1").Value = "○○○"
X = Range("A1").End(xlDown).Row
X = Cells(1, 1).End(xlDown).Row
X = Cells(Rows.Count, 1).End(xlUp).Row
画面の更新 停止
Application.ScreenUpdating = False
画面の更新 開始
Application.ScreenUpdating = True