Kopierfunktion

ich habe ein Problem:

Und zwar möchte ich Daten kopieren und wieder einfügen. Jedoch sind die Zeilen umrandet und ich kopiere die Ränder mit, welches ich nicht möchte:

Mein Makro:

If Worksheets(i).Name = "Übersichtsblatt" Then
Sheets("Übersichtsblatt").Range("B17:B22").Copy
Selection.Paste

Wenn ich nur ein Feld kopiere z.B. .Range("B17").Copy kopiert er es mir ohne Probleme!

Kann mir jemand dabei helfen!?

Danke Chris

PS: Beim Kopieren wählt er auch jedes mal eine andere Schriftgrösse, worauf ist das denn zurückzuführen!?