vba range rows 항목 값 가져오기

Dim rSrc As Range, r As Long
' source range
Set rSrc = Range("A1").CurrentRegion
' head range
Dim rHead As Range: Set rHead = rSrc.Rows(1)
Debug.Print rHead.Formula(1, 2) '항목