Выберите ActiveCell на другом листе

Question

Я работаю над проектом, который сортирует все ячейки на другом листе на основе критериев. Мне нужно активировать ячейку на другом листе, чтобы она работала. Я попытался найти решение, но не повезло. Я записал макрос из моей книги и немного изменил его, чтобы он соответствовал моей потребности. Когда я запускаю код, появляется Runtime Error 1004. мне нужен код, чтобы заменить

SetRange ActiveCell.Offset(-1, 0).Range("A1:AF30436") 

Любое предложение будет оценено.

Вот код:

Sheets("Source").Select 
ActiveWorkbook.Worksheets("Source").Sort.SortFields.Clear 
ActiveWorkbook.Worksheets("Source").Sort.SortFields.Add Key:=ActiveCell.Range _ 
    ("A1:A30435"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ 
    xlSortNormal 
With ActiveWorkbook.Worksheets("Source").Sort 
    .SetRange ActiveCell.Offset(-1, 0).Range("A1:AF30436") 
    .Header = xlYes 
    .MatchCase = False 
    .Orientation = xlTopToBottom 
    .SortMethod = xlPinYin 
    .Apply 
End With 

Answer 1

при записи макроса, щелкните на ячейке второго листа и начать процедуру сортировки. Макро правильно записал это.

однако, когда вы делаете это в VBA, «активная ячейка» может быть что угодно, и в большинстве случаев вам не нужно это до тех пор, как вы знаете datarange, что вам нужно работать с

dim ws as WorkSheet 
set ws = Sheets("Source") 
ws.Sort.SortFields.Clear 
ws.Sort.SortFields.Add Key:=ws.Range _ 
     ("A1:A30435"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ 
     xlSortNormal 
With ws.Sort 
    .SetRange Range("A1:AF30436") ' Change here to itended dataset 
    .Header = xlYes 
    .MatchCase = False 
    .Orientation = xlTopToBottom 
    .SortMethod = xlPinYin 
    .Apply 
End With