Import from list to table

Sub test()
    Dim r As Range, runique As Range, cunique As Range, rcrit As Range
    Dim rab As Range, x As String, y As String, z As String, filt As Range
    Dim rc As Range, c As Range
    Dim ra As Range, rb As Range, m As Long
    Dim j As Long, k As Long, gate As Range, n As Long, gater As Range

    Application.ScreenUpdating = False
undo
Worksheets("sheet1").Activate
    Set rcrit = Range("F1")
    Set runique = Range("A1").End(xlDown).Offset(5, 0)
    Set r = Range("A1").CurrentRegion
    Set rab = r.Resize(r.Rows.Count, 2)
    'MsgBox rab.Address

    r.Sort key1:=Range("a1"), key2:=Range("B1"), header:=xlYes
    Set ra = r.Columns("A:A")
    Set rb = r.Columns("B:B")
    Set rc = r.Columns("C:C")
    'MsgBox rc.Address
    rab.AdvancedFilter xlFilterCopy, , runique, True
    rc.AdvancedFilter xlFilterCopy, , Range("z1"), True
    Range(Range("z2"), Range("z2").End(xlDown)).Sort key1:=Range("z1"), header:=xlNo
    Range(Range("z2"), Range("z2").End(xlDown)).Copy
    runique.Offset(0, 2).PasteSpecial , Transpose:=True
    Range("Z1").EntireColumn.Delete
    m = WorksheetFunction.CountA(Range(Range("F2"), Range("F2").End(xlDown)))
    j = runique.End(xlDown).Row
    k = runique.End(xlToRight).Column
    For Each cunique In Range(runique.Offset(1, 0), runique.End(xlDown))
        r.AutoFilter field:=1, Criteria1:=cunique.Value
        r.AutoFilter field:=2, Criteria1:=cunique.Offset(0, 1).Value
        Set filt = r.Offset(1, 0).Resize(r.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
        Set ra = filt.Columns("A:A")
        Set rb = filt.Columns("B:B")
        Set rc = filt.Columns("C:C")
        'For n = runique.Offset(1, 0).Row To j
        Set gate = Range(cunique.Offset(0, 2), Cells(cunique.Row, k))
       ' MsgBox gate.Address
        For Each c In gate
            c.Formula = "=sumproduct((" & ra.Address & "=" & Cells(c.Row, 1).Address & _
                        ")*(" & rb.Address & "=" & Cells(c.Row, 2).Address & ")*(" & _
                        rc.Address & "=" & Cells(cunique.End(xlUp).Row, c.Column).Address & "))"
            If c = 1 Then
                c = "X"
            Else
                c = ""
            End If
        Next
        'Next c
        ActiveSheet.AutoFilterMode = False
    Next
    
    MsgBox "macro over"
    Application.ScreenUpdating = True
End Sub

Sub undo()
    Worksheets("sheet1").Activate
    Range(Range("A1").End(xlDown).Offset(1, 0), Cells(Rows.Count, "A")).EntireRow.Delete

End Sub