Chọn lại cell cuối cùng trước khi thực hiện macro

[chudaosi]

Em mới tập VBA nên xin các sư huynh giúp giùm em vấn đề này:
Sau khi em thực hiện macro như sau trong Excell 2003 thì cursor đưa về đầu dòng:

Sub ClearRow()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
ActiveCell.Rows.EntireRow.Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Em muốn chọn lại cell cuối cùng trước khi thi hành macro, mong các sư huynh giúp em.

 

[Hai Lúa Miền Tây]

Cell cuối cùng của cột A nè bạn:

Range("a65536").End(xlUp).Select

 

[SA_DQ]

Chắc không fải vậy đâu Dom ơi!

Cell cuối cùng của cột A nè bạn:

Nếu muốn kích hoạt lài ô cuối cùng hiện hữu, trước khi chạy macro, bạn fải:

Khai báo 1 biến kiểu chuỗi, như

Dim StrC As String

Ngay dòng sau đó ta fải ghi lại địa chỉ ô đang kích hoạt vô biến :

StrC = Selection.Address

. . . .

Vậy là cuối macro ta kích hoạt ô này bằng dòng lệnh

Range(StrC).Select