SheetName = A001
A B C D E F G
1 A001.1 Status:
2
3
4
5
6 A001.2 Status:
7
8
9 A001.3 Status:

I am trying to write macro for setting the value in the B column for
rows only in which G = "Status:"
The value is the SheetName & ".1"
(Then & ".2", Then & ".3" in sequence)

Can anyone help me?
Here is what sets the first value correctly, now I need it to be
dynamic. Thanks!!!!

Sub CellValues()

Dim rStatus As Range
Dim rng As Range

With ThisWorkbook.ActiveSheet
Set rStatus = .Range(.Range("G14"), .Range("G14").End(xlDown))
End With

For Each rng in rStatus
If rng = "Status:" Then
rng.Offset(0, -5).Value = ActiveSheet.Name & ".1"
prevTC = ActiveCell.Value
End If
Next rng

End Sub