Makro der kan kopier 104 gange hver dag

Hej eksperter.
Jeg har forsøgt mig med at indspille en Makro, det funger også, men
er temmelig besværligt derfor håber jeg på, at der er en ekspert der
har en løsning.

Opgaven:
I Ark1 har jeg nogle kolonner (104) hvor værdien bliver talt sammen hverdag i
Følgende celler:
E54 og F55
H54 og I55
K54 og L55 .bemærk der er en tom kolonne mellem hver sæt kolonner.
o.s.v. for at slutte med:
FB54 og FC55

Indholdet i de nævnte celler ønsker jeg at kopier til Ark2 som følger:
E54 til B3 i Ark2 og F55 til C3 i Ark2
H54 til B4 i Ark2 og I55 til C4 i Ark2
K54 til C5 i Ark2 og L55 til C3 i Ark2
o.s.v.
FB54 til C54 i Ark2 og FC55 til C54 i Ark2.

Jeg vil gerne have Makro til at kunne opdatere Ark2 hver dag, er der 0 værdi i en af de celler der skal kopieres skal 0 kopieres med over.

Min Makro:
Sub Makro4()
'
' Makro4 Makro
' Makro indspillet 26-08-2003 af JFM
'
'
    Sheets("Ark1").Select
    Range("E54").Select
    Selection.Copy
    Sheets("Ark2").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Ark1").Select
    Range("F55").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Ark2").Select
    Range("C3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

johnfm