How to loop through columns

I have the following code that matches the date between two worksheets and copies and pastes the data for a specific column. In the one below it copies and paste for F14. I would like to loop through the columns such as F14 then G14 then H14 etc. How can I go about doing that?

Dim rFind As Range, MatchDate As Date, ms As Worksheet, ws As Worksheet, rng As Range, cel

Application.ScreenUpdating = 0

Set ms = Sheets("DCF Equity")

MatchDate = Sheets("DCF Equity").Range("F14")


With Sheets("Data Check")


    Set rFind = .Rows(1).Find(MatchDate, LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not rFind Is Nothing Then
     
        For Each cel In ms.Range("B16", ms.Range("B" & Rows.Count).End(xlUp))
        
          Set rng = .Columns(2).Find(cel, LookIn:=xlValues, LookAt:=xlWhole)
        
              If Not rng Is Nothing Then
                 ms.Range("F" & cel.Row) = .Cells(rng.Row, rFind.Column)
              End If
        Next
    End If
End With
Set ms = Nothing
Set ws = Nothing
Set rFind = Nothing
Set rng = Nothing
Application.ScreenUpdating = True

Application.ScreenUpdating = 0

Hello todd18us,

Dim rFind As Range, ms As Worksheet, ws As Worksheet, rng As Range, cel
Dim cell As Range

Application.ScreenUpdating = 0

Set ms = Sheets("DCF Equity")

For Each cell In ms.Range("F14:H14").Cells

With Sheets("Data Check")
    Set rFind = .Rows(1).Find(cell.Value, LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not rFind Is Nothing Then
     
        For Each cel In ms.Range("B16", ms.Range("B" & Rows.Count).End(xlUp))
        
          Set rng = .Columns(2).Find(cel, LookIn:=xlValues, LookAt:=xlWhole)
        
              If Not rng Is Nothing Then
                 ms.Range("F" & cel.row) = .Cells(rng.row, rFind.Column)
              End If
        Next
    End If
End With

Next cell

Set ms = Nothing
Set ws = Nothing
Set rFind = Nothing
Set rng = Nothing
Application.ScreenUpdating = True

Application.ScreenUpdating = 0

Option Explicit
Sub example()
    Dim rFind As Range, _
    MatchDate As Date, _
    ms As Worksheet, _
    ws As Worksheet, _
    rng As Range, _
    Cel As Range
    
    Dim TestCol  As Range
    Dim FirstDCFCol As String
    Dim LastDCFCol  As String
    
    Application.ScreenUpdating = 0
    Set ms = Sheets("DCF Equity")
    
    With Sheets("DCF Equity")
'--------------------------------------------
        ' option #1: hard coded range
        For Each TestCol In .Range("F14:H14")

'------------------   OR   ---------------------

        'option #2: dynamic last column
        FirstDCFCol = "F14"
        LastDCFCol = .Cells(14, Columns.Count).End(xlToLeft).Address
        
        For Each TestCol In .Range(FirstDCFCol, LastDCFCol)
'---------------------------------------------

            MatchDate = TestCol.Value
            
            With Sheets("Data Check")
                Set rFind = .Rows(1).Find(MatchDate, LookIn:=xlValues, LookAt:=xlWhole)
                If Not rFind Is Nothing Then
                    For Each Cel In ms.Range("B16", ms.Range("B" & Rows.Count).End(xlUp))
                        Set rng = .Columns(2).Find(Cel, LookIn:=xlValues, LookAt:=xlWhole)
                        If Not rng Is Nothing Then
                            ms.Range("F" & Cel.Row) = .Cells(rng.Row, rFind.Column)
                        End If
                    Next Cel
                End If
            End With    'data ck
        Next TestCol
        
    End With    'dcf eq
    
    Set ms = Nothing
    Set ws = Nothing
    Set rFind = Nothing
    Set rng = Nothing
    Application.ScreenUpdating = True
    Application.ScreenUpdating = 0
End Sub

To attach a Workbook
(please do not post pictures of worksheets)

• Click Advanced (next to quick post),
• Scroll down until you see "Manage Attachments",
• Click that then select "add files" (top right corner).
• Click "Select Files" find your file, click "open" click "upload"
• Once the upload is completed the file name will appear below the input boxes in this window.
• Click "Done" at bottom right to close the Attachment Manager.
• Click "Submit Reply"