Selecionar Próxima Célula Vazia da linha e colar

Olá pessoal. Estou iniciando em VBA e preciso de uma Ajuda.
Tenho uma planilha com informações em 4 colunas, o VBA tem que verificar uma condição que pode ser de 1 a 5 e para cada condição encontrada ele vai copiar as células correspondentes da primeira coluna, e colar em uma determinada linha, em seguida ele fará a mesma ação na segunda coluna e colar na mesma linha anterior, porém, a partir da próxima célula vazia desta linha.
não estou conseguido fazer isso, colar a partir da próxima célula vazia seguinte.

Sub treinandoCopiaCola()

For Each celula In Range(“C14”)
If Range(“C14”).Value = 1 Then
Range(“D3”).Copy
Range(“D9”).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False

End If
If Range(“C14”).Value = 2 Then
Range(“D3:D4”).Copy
Range(“D9”).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False

End If
If Range(“C14”).Value = 3 Then
Range(“D3:D5”).Copy
Range(“D9”).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False

End If
If Range(“C14”).Value = 4 Then
Range(“D3:D6”).Copy
Range(“D9”).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False

End If

Next

linha = Sheets(“Plan1”).Range(“N28”).End(xlToRight).Row + 1
End Sub