VBAの基本構文

繰り返し

For i = startIndex To endIndex
  ' 繰り返し処理
Next i

条件分岐

    '値が存在しない場合に処理を実施
    If value = "" Then
      '処理
    End If

形式を選択して貼り付ける(値貼り付け)

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False

Pasteに設定する属性

書式：xlPasteFormats
数式：xlPasteFormulas

選択行に色づけ

    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With

ThemeColorに設定できる内容は以下を参照

http://www.happy2-island.com/excelsmile/smile03/capter00608.shtml