Bedingung prüfen und Spalte löschen

Sub bereinigen()
Dim i As Long
Dim j As Long
Dim Spalte_L As Long
Dim Spalte_M As Long
Dim wksDiagramm As Worksheet
Dim wksDaten As Worksheet
Set wksDiagramm = Worksheets("Diagramm")
Set wksDaten = Worksheets("Daten")
Spalte_L = wksDiagramm.Cells(1, Columns.Count).End(xlToLeft).Column
Spalte_M = wksDaten.Cells(1, Columns.Count).End(xlToLeft).Column
For i = Spalte_L To 1 Step -1
For j = Spalte_M To 1 Step -1
If wksDiagramm.Cells(1, j) = wksDaten.Cells(1, i) Then
i = i - 1
GoTo weiter
End If
Next
wksDiagramm.Columns(i).Delete
weiter:
Next
MsgBox Spalte_L & " & " & Spalte_M
End Sub

Sub LeereZeilenEntfernen()
Dim Zeile As Long
Dim ZeileMax As Long
With Tabelle1
ZeileMax = .UsedRange.Rows.Count
For Zeile = ZeileMax To 1 Step -1
If .Cells(Zeile, 1).Value = "" Then
.Rows(Zeile).Delete
End If
Next Zeile
End With
End Sub