Slet linie hvis

Jeg ved ikke hvad du søger, for det forklarer dit spørgamål ikke. Måske du kan bruge dette:

Dim Streger As String: Streger = "a2:a500"
      b = 2
      For Each c In Worksheets("fors").Range(Streger).Cells
    If IsNumeric(c.Value) Then
    Else
    Cells(b, 1).EntireRow.Delete 'Streger fjernes
    End If
    b = b + 1
  Next c

Dim Streger As String: Streger = "a2:a500"
      b = 2
      For Each c In Worksheets("fors").Range(Streger).Cells
    If IsNumeric(c.Value) Then
    b = b + 1
    Else
    Cells(b, 1).EntireRow.Delete 'Streger fjernes
    b = b - 1 ' -1 fordi rækken neden under rykker op og bliver samme nummer
    End If
    b = b + 1
    Next c

Hej

Det virker ikke helt i nu, har ændret lidt, men problemet er Each C står og tæller op hver gang også når jeg sletter en linie, så når der er 10 linje der skal slettes går det galt.

Målet er at slette de linje hvor der ikke står en numerisk tal i kolone C

Dim Streger As String: Streger = "C2:C500"
  b = 2
  For Each c In Worksheets("fors").Range(Streger).Cells
    If IsNumeric(c.Value) Then
      Else
      Cells(b, 1).EntireRow.Delete 'Streger fjernes
        b = b - 1 ' -1 fordi rækken neden under rykker op og bliver samme nummer
        End If
          b = b + 1
          Next c

Jeg løser det måske på denne her, men hvordan bevare jeg linje 1, skal ikke slettes

     
      Dim R As Long
For R = Cells(Rows.Count, 3).End(xlUp).Row To 1 Step -1    ' 3 står for kolone C
    If Not IsNumeric(Cells(R, 3).Value) Then Rows(R).Delete
Next

Dim R As Long
R =  Range("C65536").End(xlUp).row
For R = R To 2 Step -1    ' To 2, betyder til række 2
    If Not IsNumeric(Cells(R, 3).Value) Then Rows(R).Delete
Next

Super kabbak svar tak

;-))