Sub 표복사()
'
' 표복사 매크로
'

'
    Range("B4:D9").Select
    Selection.Copy
    Range("G4").Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub