Como configurar o intervalo de seleção do lastrow em vba

Question

Tentando configurar a última linha entre ("B4: B17") e continuou recebendo um erro (APLICATIVO DEFINIR OU OBJETO DEFINIR ERRO), existe alguma outra maneira que eu possa configurar o intervalo de seleção da última linha ou o que eu estou fazendo errado neste código

 sub try()
   dim lastrow as long
   lastrow = ActiveSheet.Range("D4:D17" & Rows.Count).End(xlUp).Row
 end sub

    

Answer 1

Use o método Range.find para encontrar a última linha.

Caso todas as células estejam vazias, você deve usar On error resume next para suprimir um erro

Sub try()
    Dim lastrow as long
    On Error Resume Next
    lastrow = [B4:B17].Find("*", [B4], , , xlByRows, xlPrevious).Row
    On Error GoTo 0
End Sub

    

Answer 2

Na verdade eu descobri, mas alguém, por favor, deixe-me saber se há outras maneiras ...

  lastrow = Range("B17").End(xlUp).Row