Macro copiar y pegar rango de fila en otro libro

Tengo este código que esta funcionando

Sub Macro4()

Range("C4:H4").Select
    Selection.Copy
    Range("J4").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("J5").Select
    Windows("MACRO RECIBOS.xls").Activate
    Range("O9").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("B5").Select
End Sub

Mi necesidad es la siguiente

La línea Range("C4:H4").Select quisiera reemplazarla con una línea que seleccione el rango C:H de la fila que contenga la celda activa, ejemplo si la celda activa es H4, que copie C4:H4, si la celda activa es H5, que copie C5:H5 y así sucesivamente.

La línea Range("J4").Select quisiera reemplazarla con una línea que seleccione la celda J de la fila que contenga la celda activa. Ejemplo si la celda activa es H4, que pinte de amarillo J4 y así sucesivamente.

La línea Range("J5").Select quisiera reemplazarla con una línea que seleccione la celda J de abajo de la fila que contenga la celda activa. Ejemplo si la celda activa es H4, que seleccione la celda J5 y así sucesivamente.