Вставка определенных данных

[AllenJ]

Добрый день. Возможно это основы основ, но все же мне не понятно.
Нужно вставить в любое место листа Excel определенный набор данных. Например: Дата, Время, Место. Я пытался записать место, но он привязан к той строке, в которой был записан макрос. То есть вставляет эти данные только в ту строку, в которой велась его запись. А мне нужно чтобы вставлялось в любую строку документа. Для примера:

   Range("D391").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Дата:"
    Range("D391").Select
    Selection.Font.Italic = True
    ActiveWindow.SmallScroll Down:=3
    Range("C393").Select
    ActiveCell.FormulaR1C1 = "Время:"
    Range("C393").Select
    Selection.Font.Italic = True
    Range("D393").Select
    ActiveWindow.SmallScroll Down:=3
    Range("C395").Select
    ActiveCell.FormulaR1C1 = "Место:"
    Range("C395:D395").Select
    Selection.Font.Italic = True
    Range("H396").Select
End Sub

[IgorGO]

sub Start
InsData 391
InsData 400
insdata 10000
end sub


sub InsData(r as long)
c = 3
cells(r,c) = "Дата:"
cells(r+2,c) = "Время:"
cells(r+4,c) = "Место:"
enn sub

[VictorM]

в любую строку документа.

Активируйте любую ячейку, выполните макрос:

Sub tt()
    With ActiveCell
        .Value = "Дата:": .Font.Italic = True
        .Offset(2, -1) = "Время:"
        .Offset(2, -1).Font.Italic = True
        .Offset(4, -1) = "Место:"
        .Offset(4, -1).Font.Italic = True
    End With
End Sub

p.s.
т.к. макрос моделирует Ваш, активация ячейки в столбце "А" вызовет ошибку

[AllenJ]

Спасибо большое за помощь!