如何根据多个单元格值将一个工作表中的特定行复制到另一个工作表？

Question

I have only basic vba knowledge and I am looking for help. I have searched this topic but I can't find anything for my specific needs. I have to work with spreadsheets generated by a piece of test equipment. I am trying to look at the values in each row in starting in column C up to as many as 60 columns, which varies. If the value of any cell from C7 on in not “”, I want to copy the entire row to a new sheet. The data in each cell will be either a positive or negative number with 3 decimal places. I may have as many as 3500 rows to go through with 10-20 rows that have any information that I would like to move. Example In the example screenshot, I only care about copying row 7 and 15

Answer 1

I came up with this but I'm sure there has to be a more efficient solution

    Sub Splice()
   
    Dim lr As Integer 'last row
    Dim lc As Integer 'last column
    Dim r As Integer 'row number
    
    With Worksheets("Splice loss")
    lr = .Cells(.Rows.Count, "A").End(xlUp).Row 'count number of rows
    lc = .Cells(1, Columns.Count).End(xlToLeft).Column 'count number of columns
    End With
    
    i = 7 'first row number in destination sheet
        
    For r = 7 To lr
    With Worksheets("Splice loss")
    If WorksheetFunction.Sum(Range(Cells(r, 3), (Cells(r, lc)))) <> 0 Then 'check values in each row
    Range(Cells(r, 3), Cells(r, lc)).EntireRow.Copy Worksheets("Splices").Range("A" & i) 'copy row with data to new sheet
        
    i = i + 1
    End If
    End With
    Next
    

End Sub