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!

[JOHN H. DAVIS]

Maybe:

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

    For Each Lname In ActiveSheet.Range("H1:H" & Cells(Rows.count, "H").End(xlUp).Row)
        
        If IsNumeric(Lname) 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

[Tortus]

Its doing numeric values and blanks? How to make it stop coping the blanks?

[JOHN H. DAVIS]

Maybe:

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

    For Each Lname In ActiveSheet.Range("H1:H" & Cells(Rows.count, "H").End(xlUp).Row)
        
        If IsNumeric(Lname) And Lname.Value <> "" 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

[Tortus]

WHAT WHAT!! It works sir like a fine lady in a silk dress.... minus the dress

Thank you JOHN H DAVIS!

[JOHN H. DAVIS]

You're welcome. Glad to help out, and thanks for the feedback.