Вобщем только только начал учится программировать(вчера^^) и не могу справится с простейшей задачей, надеюсь здесь мне помогут.
нужно организовать цикл по ячейкам, при нахождении ячейки с заливкой, макрос заливал(тем же цветом) всю строку с данными, и далее сразу переходил на след строку и повторял те же действия.

я писал примерно так(строго не судите если даже здесь бред написан:) ):

Sub macro1()
Dim i As Integer, j As Integer
iRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
iClm = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1

For i = ActiveSheet.UsedRange.Row To iRow
For j = ActiveSheet.UsedRange.Column To iClm
If Range(i, j).Interior.ColorIndex <> xlColorIndexNone Then
Range(i, j).Copy
Range(ActiveCell.End(xlToLeft), ActiveCell.End(xlToRight)).PasteSpecial Paste:=xlFormats
ActiveCell.Offset(1, 0).Select
End If
Next i
Next j
End Sub

но выдает ошибку. помогите наставить на путь истинный.
А если не сложно то объясните как делать цикл перебора по строкам по столбцам по каждой ячейки,
заранее благодарю.

P.s файл приложил

Вобщем на картинке нарисовано как есть и как должно быть в итоге

White OwlПрочитай это:
http://www.sql.ru/forum/actualthread.aspx?tid=132692
http://www.sql.ru/faq/faq_topic.aspx?fid=202

И мы снова играем в игру "угадай ошибку"...




Ошибка такая: "Invalid Next control variable reference"

п.с. спасибо за код, конечно не совсем то что на картинке, но это я думаю уже сам сделаю, еще раз спасибо.