Макрос прибавления

[dmonco]

Добрый день.
Помогите с очень простым вопросом.
Нужен макрос, при запуске которого будет прибавляться 10% к сумме в колонке J, и сюда же в колонку J будет записываться результат.
Я пытаюсь что-то составить, но не уверен, что на правильном пути

Sub AddJcolumn()
  Dim r As Long
  For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(r, 10) != "" Then (Cells(r, 10)*10/100)+Cells(r, 10)
  Next
End Sub

P.S. Я учусь, поэтому нужен именно макрос, а не формулы, выделения, и т.д.

[EducatedFool]

Sub AddJcolumn()
    Dim r As Long
    For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        ' если в ячейке число (больше нуля), то добавляем 10% (умножаем на 1.1)
        If Val(Cells(r, 10)) > 0 Then Cells(r, 10) = Val(Cells(r, 10)) * 1.1
    Next
End Sub

PS:
можно и так написать:

 If Cells(r, 10) > 0 Then Cells(r, 10) = Cells(r, 10) * 1.1

но, если в ячейке будет не число, а текст, макрос вылетит с ошибкой.
поэтому я преобразую содержимое ячейки в число при помощи функции VAL() перед сравнением или умножением

[EducatedFool]

Есть ещё один способ - несколько более загадочный, но работает быстрее для большого числа ячеек:

Sub Макрос1()
    ' пишем в любую ячейку (например, в ячейку B5) коэффициент 1.1
    [b5] = 1.1
    ' копируем эту ячейку
    [b5].Copy
    ' используем специальную вставку с опцией «умножить»
    Range([j1], Range("j" & Rows.Count).End(xlUp)).PasteSpecial Operation:=xlMultiply
    ' стираем коэффициент (он нам больше не нужен)
    Range("b5") = ""
    ' выключаем режим копирования
    Application.CutCopyMode = False
End Sub

[dmonco]

Круто. Спасибо большое. Сейчас буду практиковать.