jimalya,

Its hard to say without seeing your code, but hopefully you can adapt something like this. Note that the code assumes your textboxes have a naming convention. The 'WC' textboxes that will hold the header are assumed to be named 'txtWC#' where # is 1, 2, ...8, and that the textboxes that will hold the notes are named 'txtWC#Note' where # is again 1, 2, ...8
    Dim CheckCell As Range
    Dim ActiveRecord As Range
    Dim arrData(1 To 8, 1 To 2) As String
    Dim DataIndex As Long
    Dim i As Long
    
    'Your code to filter the data and/or adjust the active record goes here
    
    'Now you are working with the active record
    'You can use Intersect to determine which columns to check
    'This will check columns H:O for the row of the active record
    For Each CheckCell In Intersect(ActiveRecord.EntireRow, Range("H:O"))
        If Len(CheckCell.Text) > 0 Then
            DataIndex = DataIndex + 1
            arrData(DataIndex, 1) = Cells(1, CheckCell.Column).Text
            arrData(DataIndex, 2) = CheckCell.Text
        End If
    Next CheckCell
    
    For i = 1 To DataIndex
        Controls("txtWC" & i).Text = arrData(i, 1)
        Controls("txtWC" & i & "Note").Text = arrData(i, 2)
    Next i