Como encontra o indice da linha de uma celula em vba


#1

Boa tarde, Pessoal!

Estou precisando de uma dica! Estou querendo encontra o Índice da linha da célula para coloca na variável “lin2”. Por que esse Código precisa encontra a ultima linha vazia dentro de uma planilha. O objetivo e salvar varios dados. mas quando tento salvar dados adicionais o mesmo sempre se inicia na linha 2 e quero que ele encontre automaticamente o numero da primeira linha vazia depois dos ultimos dados preenchidos na coluna B.

Sub SalvarCheck()

Dim lin, lin2 As Integer

lin = 9
lin2 = 2

F.Select

Do While B.Cells(lin, 1) <> ""
Range("B1048576").End(xlUp).Offset(1, 0).Select
F.Cells(lin2, 2) = B.Cells(2, 7)
F.Cells(lin2, 3) = B.Cells(lin, 1)
F.Cells(lin2, 4) = B.Cells(lin, 7)
F.Cells(lin2, 5) = B.Cells(lin, 8)
lin2 = lin2 + 1
lin = lin + 1
Loop

End Sub

Agradeço o apoio!


#2

@Moisesjr

Sub SalvarCheck()
Dim lin, lin2 As Integer

lin = 9
lin2 = Range("B1048576").End(xlUp).Offset(1, 0).Row ' Linha modificada

F.Select

Do While B.Cells(lin, 1) <> ""
' Linha removida
F.Cells(lin2, 2) = B.Cells(2, 7)
F.Cells(lin2, 3) = B.Cells(lin, 1)
F.Cells(lin2, 4) = B.Cells(lin, 7)
F.Cells(lin2, 5) = B.Cells(lin, 8)
lin2 = lin2 + 1
lin = lin + 1
Loop
End Sub

#3

Muito Obrigado pela dica!