Распознать содержимое ячейки в VBA

Question

Я пытаюсь создать код, который поможет мне вставить мои формулы в диапазон.

диапазон постоянно меняется, так как я должен ежедневно включать информацию в список моего списка

существующий код почти выполняет свою работу, но вместо распознавания значения в ячейке a1 (счетчик количества записей для вычисления) он вставляет информацию в диапазон e1: k1

Sub Run_Formulas()
'
' Run_Formulas Macro
'
 Dim As Variant

 x1 As Variant

 x1 = Worksheets("Raw Data").Range("A1")

'
Range("E4:K4").Select
    Selection.Copy
Range("E8" & ":" & "K" & "a1").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, 
SkipBlanks _
    :=False, Transpose:=False
End Sub

как я могу заставить макрос распознавать содержимое ячейки a1 и использовать его для моего последнего диапазона /