Почему в моем коде не работает несколько языков "NextFree = Range"?

Question

Я пишу код VBA в Excel, чтобы скопировать формулы из последней строки данных в строку под ней, а затем скопировать эту последнюю строку (теперь вторая в последнюю строку) и вставить ее в качестве значений.Я хотел бы сделать это для нескольких листов.Проблема в том, что после того, как он работает правильно для первого листа, он выдает ошибку на следующем листе (и, вероятно, на остальных).

Код работает для первого листа, но когда он перемещается на следующий листExcel выдает «Ошибка времени выполнения 1004»: «сообщение об ошибке не найдено». Когда я отлаживаю ошибку, 2-я строка в третьем абзаце ниже дает мне проблему. Что мне делатьразрешить этот код работать для нескольких листов в одной книге?

Sheets("BrentSkew").Select
NextFree = Range("A2:A" & 
Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row
Range("A" & NextFree - 1).Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
NextFree = Range("A2:A" & 
Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row
Range("A" & NextFree).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, 
SkipBlanks _
    :=False, Transpose:=False

Sheets("BrentSkew").Select
NextFree = Range("A2:A" & 
Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row
Range("A" & NextFree - 2).Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
NextFree = Range("A2:A" & 
Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row
Range("A" & NextFree - 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks 
_
    :=False, Transpose:=False

Sheets("LLSSkew").Select
'the line below is the problem
NextFree = Range("A2:A" & 
Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row
Range("A" & NextFree - 1).Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
NextFree = Range("A2:A" & 
Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row
Range("A" & NextFree).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, 
SkipBlanks _
    :=False, Transpose:=False

Sheets("LLSSkew").Select
NextFree = Range("A2:A" & 
Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row
Range("A" & NextFree - 2).Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
NextFree = Range("A2:A" & 
Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row
Range("A" & NextFree - 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks 
_
    :=False, Transpose:=False