How do I include any textboxes when I copy an area?

How do I include any text boxes when I copy an area from one worksheet to another?

This is the code I am currently using

Sheets("Quote").Range("Copy4").copy
Sheets("Cutsheet").Range("Paste4").PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False