VBA - čtení údajů z buňky podle toho, na kterém řádku se nacházím

Ahoj,

dělám Macro v Excelu s tím, že mi bude posílat mail s textem a daty z buněk v Excelu. Macro funguje až na poslední věc - potřebuju, aby by byl mail poslán s těmi daty podle řádku, na kterém se právě nacházím. Dejme tedy tomu, že mám dva řádky a když jsem na druhém řádku, potřebuji, aby si macro doplnilo data právě z tohoto druhého řádku. Můžete prosím někdo poradit?

Díky

Kód
Option Explicit

Sub Mail_small_Text_Outlook()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With ThisWorkbook.Sheets("Sheet1")
strbody = "Hi there" & vbNewLine & vbNewLine & _
.Range("A1") & vbNewLine & _
.Range("B1") & vbNewLine & _
.Range("C1") & vbNewLine & _
.Range("D1")
End With

On Error Resume Next
With OutMail
.To = "hello@world.com"
.CC = ""
.BCC = ""
.Subject = "Predmet"
.Body = strbody
.Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub