Как протащить формулу, содежащуюю переменное названия листа в переменном диапазоне?

[Squarded]

Здравствуйте!
При написании макроса столкнулся с проблемой: нужно ячейке B3 на одном листе (пусть Лист2 будет) присвоить значение из ячейки В3 с другого листа (Лист1 к примеру)

Range("B4").Select
ActiveCell.FormulaR1C1 = "=Лист1!RC"

и протащить эту формулу на листе 2 до 3ей с конца заполненной ячейки

Cells(Rows.Count, 2).End(xlUp).Offset(-3, 0).Select

Range("B4").AutoFill Destination:=Range("B4", ?), Type:=xlFillDefault

Проблема в том, что названия листов заранее неизвестны, т.е. нужно ее переменной записать, но я не могу, присвоил значение названия листа переменной х (тип String), поскажите как в формуле ее проставить "=Лист1!RC", чтобы вместо Лист один была переменная х, содержащая имя нужного листа

тоже и с 3ей с конца ячейкой, её тоже переменной нужно записать, чтобы она встала вместо знака ?

Подскажите как это сделать, пожалуйста!!!

[Казанский]

Вам нужно "присвоить значение" или вписать формулу? Вот оба варианта:

Sub Вставить_формулы()
Dim x As String
x = "Лист1"
Range("B4", Cells(Rows.Count, 2).End(xlUp).Offset(-3, 0)).FormulaR1C1 = "=" & x & "!RC"
End Sub

Sub Присвоить_значения()
Dim x As String
x = "Лист1"
With Range("B4", Cells(Rows.Count, 2).End(xlUp).Offset(-3, 0))
    .Value = Range(x & "!" & .Address).Value
End With
End Sub

[аналитика]

вставляй формулу сразу в весь диапазон, не надо "тянуть":

Range("B4").Select
range(ActiveCell, Cells(Rows.Count, 2).End(xlUp).Offset(-3, 0)).FormulaR1C1 = "=Лист1!RC"

[Squarded]

Казанский, аналитика, спасибо большое!!! помогло, а то весь вечер убил на это