Filtern und Markieren Makro

Hallo zusammen

Ich möchte gerne mein Makro so umschreiben, dass nicht eine Zelle adrresiert wird sondern nach der Kopfzeile die erste bis zur letzten Zelle. könnt ihr mir da helfen?

VIele Grüsse
Marcel

Sub Aktualisieren2()
    Dim wb As Workbook
    Set wb = ThisWorkbook ' Objektvariable für die Arbeitsmappe erstellen
    Dim wsDatenbasis As Worksheet
    Set wsDatenbasis = wb.Sheets("Datenbasis") ' Objektvariable für das Datenbasis-Arbeitsblatt erstellen

    ' Filtern und Löschen der Daten in der Spalte J
    wsDatenbasis.Range("J1").AutoFilter Field:=10, Criteria1:="KdBest"
    Dim lastRow As Long
    lastRow = wsDatenbasis.Cells(wsDatenbasis.Rows.Count, "J").End(xlUp).Row
    wsDatenbasis.Range("J4415:J" & lastRow).EntireRow.Delete
    wsDatenbasis.Range("A:CT").AutoFilter Field:=10

    ' Filtern und Aktualisieren der Daten in der Spalte K
    wsDatenbasis.Range("A:CT").AutoFilter Field:=11, Criteria1:="=*LA *", Operator:=xlAnd
    wsDatenbasis.Range("J6806").Value = "Pl-Auf fix"
    lastRow = wsDatenbasis.Cells(wsDatenbasis.Rows.Count, "J").End(xlUp).Row
    wsDatenbasis.Range("J6806:J" & lastRow).Value = "Pl-Auf fix"

    ' Entfernen des Filters in der Spalte K
    wsDatenbasis.Range("A:CT").AutoFilter Field:=11

    ' Aktualisieren des Diagramms in der "Display"-Arbeitsblatt
    Dim wsDisplay As Worksheet
    Set wsDisplay = wb.Sheets("Display")
    wsDisplay.ChartObjects("Diagramm 2").Activate
    ActiveChart.PlotArea.Select
    wsDisplay.Shapes.Range(Array("Materialart 1")).Select
    wb.SlicerCaches("Datenschnitt_Materialart").PivotTables(1).PivotCache.Refresh

    ' Aktualisieren des Datums in Zelle O7
    wsDisplay.Range("O7").Value = Date

    ' Speichern der Arbeitsmappe
    wb.Save
End Sub