Sub 첫번째매크로()
    
    Range("D6", Range("D1048576").End(xlUp)).Delete Shift:=xlUp
    
    Range("B6", Range("B1048576").End(xlUp)).Copy
    Range("D6").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    
    Range("D6", Range("D1048576").End(xlUp)).TextToColumns _
                Destination:=Range("D6"), _
                DataType:=xlDelimited, _
                TextQualifier:=xlDoubleQuote, _
                ConsecutiveDelimiter:=False, _
                Tab:=True, _
                Semicolon:=False, _
                Comma:=False, _
                Space:=False, _
                Other:=False, _
                FieldInfo:=Array(1, 3), _
                TrailingMinusNumbers:=True
    
    Range("F6").Value = "최준선"
    
End Sub