Ændring af VBA kode

Hej Excel hjælpere

Jeg bruger denne VBA kode til at overføre data fra cellerne b3:E3 til cellerne b6:e6 og ned efter.

Nu kunne jeg godt tænke mig at rykke det hele lidt så Excel overføre fra celle b3:c3, e3 til cellerne b6:c6, e6 kan det lade sig gøre.

Celle d3 er tom og i celle e6 står en formel der skal blive stående.

På forhånd tak

Klaus W


Sub Afrundetrektangel3_Klik()
'
' overføre til bestillings
'
Sheets("Bestilling").Range("B3:e3").Copy

Dim lastrow As Long

lastrow = Range("B22").End(xlUp).Row

Sheets("Bestilling").Activate

Cells(lastrow + 1, 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End Sub