Makro med klik

Hvornår skal den hente i B3 og hvornår i B18?

Hej jkrons.
Hvis der står et resultat i B3 skal den hente det, og hvis der står et resultat i B18 skal den hente det. Der står ikke noget i begge celler samtidig.
Ib

Hej jkrons.
Har du brug for en bedre forklaring.
Ib

Hej
Der var desværre indsneget sig en fejl i linie 2.
    If Not Intersect(Target, Range("d1:e10,g1:h10,j1:k10,m1:n10")) Is Nothing Then

Sorry.
Jeg har selv forsøgt mig med en kode men den virker ikke.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("d1:e10,g1:h10,j1:k10,m1:n10")) Is Nothing Then
                  Target.Interior.Selection.Copy.Range ("b3")
            Active Range("b3").Paste(Target, Range("d1:e10,g1:h10,j1:k10,m1:n10"))
        Else
                Target.Interior.Selection.Copy.Range ("b8")
            Active Range("b18").Paste(Target, Range("d1:e10,g1:h10,j1:k10"))     
        End If
    End Sub

Er der nogen der kan se hvad der er galt med den.
Ib

Hej igen.
Jeg har fundet denne kode herinde lavet af excelent.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 2 Then Exit Sub
Application.EnableEvents = False
Target.Offset(0, -1) = Target.Offset(0, -1) + Target.Value
Target = ""
Application.EnableEvents = True
End Sub

Kan den omskrives så den passer til mit spørgsmål?

Klikker jeg på en celle i D1:E20, skal den kopiere det tal som står i celle B3 eller B18 og sætte det ind i den celle der blev klikket på. (Der står ikke noget i celle B3 og B18 samtidig, og tallet bliver stående til jeg resætter det)
Jeg skal derefter også kunne indsætte tallet i områderne G1:H20, J1:K20 og M1:N20. 
På forhånd tak.
Ib

Hej jkrons.
Vil du ikke lægge et svar, så jeg kan lukke dette spørgsmål, og oprette et nyt.
Du har jo tros alt reageret på spørgsmålet.
Ib

Hej alle sammen.
Hvordan er det jeg selv lukke dette spørgsmål.
Ib

hej Alle.
Fandt selv ud af det.
Ib