Sub Separar()
'
' Separar Macro
'

'
    Range("A2").Select
    Selection.AutoFilter
    Range("A1").Select
    ActiveSheet.Range("$A$1:$I$18300").AutoFilter Field:=1, Criteria1:= _
        Range("A2").Value
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Sheets.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("A2").Select
    ActiveSheet.Select
    ActiveSheet.Name = Range("A2").Value
    Sheets("Sueldos de Americano").Select
    Application.Goto Reference:="R2:R54321"
    Selection.Delete Shift:=xlUp
    Selection.AutoFilter
    Range("A2").Select
End Sub
