Hi Barnie

You have to modyfye this macro so it fits for you.


Sub Makro1()


Selection.Copy _
Destination:=Sheets("Your sheets name").Range("B1")




End Sub

Regards
Yngve