¿Cómo puedo hacer una macro?

Sub ENTRADAS()
Range("A2").Select
claveentrada = ActiveCell.FormulaR1C1 + 4
celdaentrada = "D" & claveentrada
Range (celdaentrada) + Range("D2")
Range("D2") = ""
End Sub
Sub SALIDAS()
Range("A2").Select
CLAVESALIDA = ActiveCell.FormulaR1C1 + 4
CELDASALIDA = "E" & CLAVESALIDA
Range (CELDASALIDA) + Range("E2")
Range("E2") = ""

¿Tengo todo esto pero no me funciona que puedo hacer?