Copy cells with numeric value

[Tortus]

I thought I posted this already but I can not find the thread - Sorry if I doubled posted.

I am trying to look down column H and copy any row that has a numeric value

Sub AddSucc()
   Dim Lname As Range
   Dim aRow As Long

    For Each Lname In ActiveSheet.Range("H1:H" & Cells(Rows.Count, "H").End(xlUp).Row)
        
        If Lname.Value = IsNumeric Then  <---- This is wrong but what goes here??
        Lname.EntireRow.Copy
        Sheets("sheet1").Select
        lMaxRows = Cells(Rows.Count, "A").End(xlUp).Row
        Range("A" & lMaxRows + 1).PasteSpecial
        Sheets("Oct 21st").Select
        End If
    Next Lname
  
   End Sub

Thank you!