Yani şöyle ;

5
●186
Sub KurCekK2()
Dim IE As Object
Dim HTMLdoc As Object
Dim TableElement As Object
Dim TableRow As Object
Dim LastRow As Long
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = False
IE.navigate "https://www.turkiye.gov.tr/doviz-kurlari"
Do While IE.Busy Or IE.readyState <> 4
DoEvents
Loop
Set HTMLdoc = IE.document
Set TableElement = HTMLdoc.getElementsByClassName("resultTable striped")(0)
Set TableRow = TableElement.getElementsByTagName("tr")(1)
DovizKuruValue = TableRow.getElementsByTagName("td")(1).innerText
LastRow = ThisWorkbook.Sheets(1).Cells(ThisWorkbook.Sheets(1).Rows.Count, "A").End(xlUp).Row + 1
ThisWorkbook.Sheets(1).Range("A" & LastRow).Value = DovizKuruValue
ThisWorkbook.Sheets(1).Range("B" & LastRow).Value = Date
IE.Quit
Set IE = Nothing
End Sub