>>425
選択した範囲が処理の起点なので、、

  Dim r As Range
  For Each r In Selection
    If r.colunm < 5 Then GoTo nextLoop
    If r.Value = "" Then GoTo nextLoop

    r.Value = r.Value * 1.1
nextLoop:
  Next

こんな感じ?
行全体を対象にしたいみたいだけど、その時はFor文の前に

  Selection.EntireRow.Select

を差し込めばいい。
1万列処理されるけど、、、