Автофильтровать данные и делать vlookup, используя VBA

Question

Я делаю отчет, в котором у меня много позиций.

Я хочу применить автофильтрацию данных и выполнить vlookup для отфильтрованных данных, которые являются видимыми ячейками.

, пожалуйста, помогите мне с этим.

Sub FilterVlookup()
    Dim x As Range
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim datarng As Range

    Dim lastRow1 As Long
    Dim lastRow2 As Long
    Set ws1 = ThisWorkbook.Worksheets("Raw Data")
    Set ws2 = ThisWorkbook.Worksheets("Lookup Data")
    Set lastRow1 = ws1.Range("A" & Rows.Count).End(xlUp).SpecialCells(xlCellTypeVisible).Row
    Set lastRow2 = ws2.Range("A" & Rows.Count).End(xlUp).Row

    Set datarng = ws2.Range("B:E" & lastRow2)
    ws1.Range("AW1").AutoFilter field:=49, Criteria1:="Telangana"
    If ActiveSheet.AutoFilter.Range.Columns(52).SpecialCells(xlCellTypeVisible).Count > 1 Then
        For x = 2 To lastRow1
            On Error Resume Next
            ws1.Range("AZ" & x).SpecialCells(xlCellTypeVisible).Value = Application.WorksheetFunction.VLookup(ws1.Range("K" & x).Value, datarng, 3, 0)
        Next x
        Range("Aw1").AutoFilter
    Else
        Range("Aw1").AutoFilter
    End If
End Sub

Пожалуйста, кто-нибудь, помогите мне с приведенным выше кодом, который не работает для меня.

Пожалуйста, помогите с кодом, используя функцию листа, будет более полезным.