Sub Macro2()
'
' Macro2 Macro
'

'
    Workbooks.Open ("C:\Users\dudkiewi\Desktop\EXCEL TEST MACRO\Remedy.xls")
    Windows("Remedy.xls").Activate
    LastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
    Set Rng = Range("A1:T" & LastRow - 2)
    Rng.Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Rng, , xlYes).Name = _
        "RemedyToImport"
    Columns("A:A").Select
    Selection.Hyperlinks.Delete
    Columns("J:J").Select
    Selection.TextToColumns Destination:=Range("J1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 3), Array(10, 9)), TrailingMinusNumbers:=True
        'sortowanie
        ActiveWorkbook.Worksheets("Sheet 1").ListObjects("RemedyToImport").Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets("Sheet 1").ListObjects("RemedyToImport").Sort.SortFields.Add _
        Key:=Range("RemedyToImport[Reported D]"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet 1").ListObjects("RemedyToImport").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
       'koniec sortowania
    lastRow_T = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
    Set Rng_T = Range("A2:T" & LastRow - 2)
    Rng_T.Select
    Selection.Copy
    Windows("test.xlsm").Activate
    Worksheets("BMCD").Activate
    LastRow_E = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
    Set Rng_E = Range("A" & LastRow_E + 1)
    Rng_E.Select
    ActiveSheet.Paste
    Workbooks("Remedy.xls").Application.CutCopyMode = False
    Workbooks("Remedy.xls").Close SaveChanges:=False


End Sub