Sub 표복사()
    
    Columns("G:I").Delete Shift:=xlToLeft

    Range("B4").CurrentRegion.Copy
    Range("G4").Select
    ActiveSheet.Paste
    Range("G4").PasteSpecial Paste:=xlPasteColumnWidths
    Application.CutCopyMode = False

End Sub