Sub 직원추가()

    Dim D열_마지막셀 As Range
    Dim G열_마지막셀 As Range
    
    Set D열_마지막셀 = Cells(Rows.Count, "D").End(xlUp)
    
    Set G열_마지막셀 = Cells(Rows.Count, "G").End(xlUp)
        
    Range("B5", D열_마지막셀).Copy Range("G" & G열_마지막셀.Row + 1)
    
    Range("B5", D열_마지막셀).ClearContents

End Sub
