Sub 표복사()
    
    Range("B4:D9").Copy
    Range("G4").Select
    ActiveSheet.Paste
    Range("G4").PasteSpecial Paste:=xlPasteColumnWidths
    ActiveSheet.Paste
    Application.CutCopyMode = False

End Sub