Sub 직원추가()

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

    End If

End Sub