Need help with Dynamic range looking for a value and checking the values in the row for any value that isn't blank

[becca51178]

I need a VBA macro that will check the values in a column for "NFR, if it finds it then I need it check all the values on the same row
Range(0, 3) - Range(0,6) and any of them that is not blank I want to create a worksheet with the value
This is what I have so far


With ActiveSheet
lRow = .Cells(.Rows.count, 1).End(xlUp).Row
lCol = .Cells(13, .Columns.count).End(xlToLeft).Column


For Each rng In Range("K13:K" & lRow)
If rng.Value = "NFR" Then

 

[onlyadrafter]

Hello,

Sub ADD_SHEET()
        MY_SOURCE = ActiveSheet.Name
        For MY_ROWS = 13 To Range("K" & Rows.Count).End(xlUp).Row
            If Range("K" & MY_ROWS).Value = "NFR" Then
                For MY_COLS = 3 To 6
                    If Not IsEmpty(Cells(MY_ROWS, MY_COLS)) Then
                        MY_NAME = Cells(MY_ROWS, MY_COLS).Value
                        Worksheets.Add After:=Sheets(ActiveWorkbook.Sheets.Count)
                        ActiveSheet.Name = MY_NAME
                        Sheets(MY_SOURCE).Select
                    End If
                Next MY_COLS
            End If
        Next MY_ROWS
End Sub

Have used column K to check for NFR, and checking cols C, D, E and F to search for possible filenames. The code doesn't have any error checking, so if repeated sheet names, you will have a problem.