Не могу написать макрос в Excel

[Porterbery]

Sub Макрос1()
Dim Строкаввода As Integer
Строкаввода = InputBox(Prompt:="Введите строку с которой наужно начинать замену", _
Title:="Радактирование LAS-файла", _
Default:="194")
Range("Chr(34) & A & chr(34) & Строкаввода").Select
End Sub

Мне нужен макрос, который запрашивает у пользователя с какой строки ему начинать работу и перемещаться в эту строку, столбец д.б. "A".
Я вроде все делаю правильно, запрашиваю номер строки, присваиваю этот номер переменной и потом выбираю строку в столбце "A" c этим номером.
Chr(34) - это вроде бы как кавычки...у меня выдает ошибку времени исполнения, не могу понять что не правильно.
Подскажите пожалуйста.

 

[Porterbery]

Ещё вот так пробовал, потомуц что в конечном итоге-то мне надо чтобы мой макрос заменял все нулевые значения не нулевыми <1 с определенной строки. Тоже не получается.

Sub Макрос2()
Dim Строкаввода As Integer
Строкаввода = InputBox(Prompt:="Введите строку с которой наужно начинать замену", _
Title:="Радактирование LAS-файла", _
Default:="A194")
Cells.Replace What:="-*.", Replacement:="0.", LookAt:=строкаввода, _
SearchOrder:=xlByRows
End Sub

 

[Sacrator]

Первый макрос должен выглядеть примерно так

Sub Макрос1()
Dim Строкаввода As Integer
Строкаввода = InputBox(Prompt:="Введите строку с которой наужно начинать замену", _
Title:="Радактирование LAS-файла", _
Default:="194")
ThisWorkbook.ActiveSheet.Range("A" & Строкаввода).Select
End Sub

Во втором не совсем понятно что на что меняем. Приведённый ниже макрос заменить все ячейки, начинающиеся с символа "-" на нули
Sub Макрос2()
Dim Строкаввода As Integer
Строкаввода = InputBox(Prompt:="Введите строку с которой наужно начинать замену", _
Title:="Радактирование LAS-файла", _
Default:="194")
ThisWorkbook.ActiveSheet.Range("A" & Строкаввода & ":A65536").Replace What:="-*", Replacement:="0", LookAt:=xlWhole, _
SearchOrder:=xlByRows
End Sub