Olá galera, boa noite, estou com uma dificuldade pra escrever na primeira linha vazia da planilha. Já tentei diversas vezes colocar o + 1 nesse código "Selection.End(xlDown).Select" mas vive dando erro. Tentei outras coisas e nada dá certo. Vou dizer o que preciso, eu recebo alguns contatos por email, eu pego esses contatos e coloco só algumas informações na planilha, pelo VBA consegui automatizar quase tudo. Eu copio (CTRL+C) a planilha que vem no e-mail, no Excel rodo a macro. Automaticamente essa macro cola na célula A1 da planilha1 e na última linha vazia da plan1 ela cola a formula simples =planilha1!$b$4 na célula C e por aí vai nas demais células. O problema é que a macro só quer colar na última linha preenchida, ou seja, ela acaba substituindo as informações. alguém por favor conseguiria me ajudar nesse código para colar na linha vazia. segue abaixo o código que estou usando.
Vou anexar a planilha que estou tentando usar.

Abaixo a macro : Já tentei de tudo para pular para a linha vazia e não vai. O +1 fica dando erro.

Sub colar_dados()
    Sheets("Planilha1").Select
    ActiveSheet.Paste
    Sheets("Plan1").Select
    Range("C1").Select
    Selection.End(xlDown).Select
    ActiveCell.FormulaR1C1 = "=Planilha1!R4C2"
    Range("D1").Select
    Selection.End(xlDown).Select
    ActiveCell.FormulaR1C1 = "=Planilha1!R8C2"
    Range("E1").Select
    Selection.End(xlDown).Select
    ActiveCell.FormulaR1C1 = "=Planilha1!R5C2"
    Range("G1").Select
    Selection.End(xlDown).Select
    ActiveCell.FormulaR1C1 = "=Planilha1!R9C2"
End Sub