Excel: Макрос для всех листов книги

[iva]

Добрый день!

Пожалуйста, подскажите, как сделать, чтобы этот макрос работал на всех листах книги, а не только на активном?

Sub T()

Dim lngI As Long
Dim lngJ As Long
    lngI = Cells(Rows.Count, 18).End(xlUp).Row 'определяем строку последней заполненной ячейки в столбце R
    lngJ = Cells(Rows.Count, 6).End(xlUp).Row 'определяем строку последней заполненной ячейки в столбце F
    Range("R" & lngI).Copy Range("R" & lngI + 1 & ":R" & lngJ)

End Sub

[Администратор]

Sub T()

    Dim sh As Worksheet
    Dim lngI As Long
    Dim lngJ As Long
   
    For Each sh In Worksheets
        lngI = sh.Cells(sh.Rows.Count, 18).End(xlUp).Row 'определяем строку последней заполненной ячейки в столбце R
        lngJ = sh.Cells(sh.Rows.Count, 6).End(xlUp).Row 'определяем строку последней заполненной ячейки в столбце F
        sh.Range("R" & lngI).Copy sh.Range("R" & lngI + 1 & ":R" & lngJ)
    Next sh

End Sub

[iva]

Спасибо!