Prezados,
bom dia,

Estou com uma dúvida, tenho 2 sheets, preciso copiar todo o conteúdo da primeira sheet para a segunda, só que nessa segunda, apenas depois da última linha preenchida... Segue meu código até o momento:

Sub difvbcontabil_Matriz()

Dim lUltimaLinhaAtiva As Long

    Sheets("Contábil2").Select
    Range("B2").Select
    ActiveSheet.Range("B2").AutoFilter Field:=2, Criteria1:="02700"
    Range("D2").AutoFilter Field:=4, Criteria1:="511110"
    Range("F2").Select
    ActiveSheet.Range("F2").AutoFilter Field:=6, Criteria1:= _
        "RI"
    Cells.Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Sheets("Dif_VendasBrutas").Select
    Range("B2").Select
    UltimaLinhaAtiva = Planilha5.Cells(Planilha5.Rows.Count, 2).End(xlUp).Row
    Range("B" & UltimaLinhaAtiva).Select
'ate essa linha debaixo vai tudo ok, eu precisava que a invés dele selecionar a última linha preenchida, selecionasse uma depois dela, para que eu pudesse colar o conteúdo copiado...
    Range(Selection, Selection.End(xlUp)).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

End Sub

Obrigado!