Boa tarde Galera.

Tenho um codigo que copia umas informações de uma planilha para outra, segue abaixo:

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False

If Application.Intersect(Target, Range("B3:B30000")) Is Nothing Then Exit Sub

If Target.Value <> "G" Then

Else

ultimalinha = Plan1.Cells(Rows.Count, "A").End(xlUp).Row

Lin = 2

For G = 2 To ultimalinha

If Plan1.Cells(G, 2) <> "" Then
Plan12.Cells(Lin, 2) = Plan1.Cells(G, 3)
Plan12.Cells(Lin, 3) = Plan1.Cells(G, 4)
Plan12.Cells(Lin, 4) = Plan1.Cells(G, 5)
Plan12.Cells(Lin, 5) = Plan1.Cells(G, 1)
Plan12.Cells(Lin, 6) = Plan1.Cells(G, 6)

Lin = Lin + 1

End If
Next

End If

Application.ScreenUpdating = True

End Sub

So que o fato é seguinte, ainda não consegue acertar alinha que faz a seguinte situação: que faça a copia das informações da linha que contem a letra "G" na plan1.cells, mas não achei uma forma exata de colocar uma linha que cole na plan12.cells, reconhecendo a ultima que foi colada.

Há alguma outra forma que faça esse reconhecimento?