Olá Pessoal, estou desenvolvendo um código:

Sub testesdiversos()
Dim LastRow As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
 With ActiveSheet
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    LastRow = LastRow - 21
    LastRow = LastRow
    
    Range("C22:C" & LastRow).Select
    Range("B17").Value = LastRow
 End With
Application.EnableEvents = True
End Sub

Está dando erro na linha: Range("C22:C" & LastRow).Select

Eu sei que a linguagem está errada, meu objetivo é que selecione a célula C22 até a LastRow, Obs LastRow é a ultima linha -21.

Vlw !!