Kopiera cellområde mha VBA, Excel.

Har denna kod som markerar en cell och kopierar in den i ett i ett område. Nu vill jag kopiera in fyra celler i rad i ett svep. Hur gör jag det?

    Cells(11, 1).Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(0, 5).Range("A1").Select
    Cells(9, 6).Copy ActiveCell
    Range(Cells(11, 6), ActiveCell).Select
    ActiveCell.Activate
    Selection.FillUp

Detta klarade nog av det:

    Cells(11, 1).Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(0, 8).Range("A1").Select
    Range(Cells(9, 9), Cells(9, 12)).Copy ActiveCell
    Range(Cells(11, 12), ActiveCell).Select
    ActiveCell.Activate
    Selection.FillUp
    Range("A1").Select