I want to create loop with a loop

You say "till the end of the range" but what is the range? I assume you could have more rows? and we can't detect the last row, because the last row is 18 in the example?

Sub KittenExplosion()

For i = 4 To 10
    For j = 2 To 5
        If Cells(i, 1) = Range("B14") And Cells(3, j) = Range("B13") Then
            newvariable = Cells(i, j)
            Exit For
            Exit For
        End If
    Next
Next
        
MsgBox newvariable

End Sub

another one:

Sub fdate()

Dim ws As Worksheet
Dim fr As Long 'variable for first row
Dim lr As Long 'variable for last row
Dim myType As String
Dim myCurrency As String
Dim head_row As Long 'the header column
Dim head As Range
Dim fdate As Date

Set ws = Worksheets("Sheet1")
fr = 4
lr = 10
head_row = 3
myType = ws.Range("B13").Value
myCurrency = ws.Range("B14").Value
Set head = ws.Rows(head_row).Find(what:=myType)
If head Is Nothing Then
    MsgBox ("Sorry the Type could not be found")
    Exit Sub
End If
For i = fr To lr
    If Range("A" & i).Value = myCurrency Then 
          fdate = ws.Cells(i, head.Column).Value
          Exit For
    End If
Next i
'now do something with fdate

End Sub

And another one (when I was learning, I found For Each macros to be a little more literal and easier to understand):

Sub UnicornParade()

For Each cell In Range("B4:E10")
    If Cells(cell.Row, 1) = Range("B14") Then
        If Cells(3, cell.Column) = Range("B13") Then
            newvariable = cell
            Exit For
        End If
    End If
Next
            
MsgBox newvariable

End Sub

Another one :

Sub test()
  On Error Resume Next
  With Range("A3:E10")
    MsgBox .Cells(Application.Match([B14], .Columns(1), 0), Application.Match([B13], .Rows(1), 0))
  End With
End Sub