То же самое другими словами.

Добавь вот эту строчку перед "End Select":  
Cells(j, 4).EntireRow.Delete

Я исходные цифры поменял немного в этом файле, верни на место, если нужно.

Вложил файл с макросом, так проще. С запуском проблем не возникнет?  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

Sub aaa()  
Dim i As Long, j As Long  
Range("D5").Select  
Selection.End(xlDown).Select  
Selection.Activate  
a = ActiveCell.Row  
For i = 2 To a  
For j = 3 To a  
Select Case Cells(i, 4).Value & Cells(j, 8).Value  
Case Cells(j, 4).Value & ""  
Cells(i, 5).Value = Cells(j, 5).Value  
Cells(i, 6).Value = Cells(j, 6).Value  
End Select  
Next j  
Next i  
End Sub

Sub bbb()  
Dim i As Long, j As Long  
Sheets("сентябрь ").Select  
Sheets("сентябрь ").Copy After:=Sheets(2)  
Range("A1").Select  
Selection.End(xlDown).Select  
Selection.Activate  
a = ActiveCell.Row  
For i = 2 To a  
For j = 2 To a  
Select Case Worksheets("октябрь").Cells(i, 4).Value  
Case Worksheets("сентябрь  (2)").Cells(j, 4).Value  
Worksheets("октябрь").Cells(i, 6).Value = Worksheets("сентябрь  (2)").Cells(j, 5).Value  
Worksheets("сентябрь  (2)").Cells(j, 5).EntireRow.Delete  
GoTo 1  
End Select  
Next j  
1 Next i  
Worksheets("сентябрь  (2)").Delete  
End Sub

{quote}{login=}{date=16.11.2011 03:37}{thema=}{post}А в XL картинка не вставляется?!. ;)  
-95445-{/post}{/quote}  
 
Привычка свыше нам дана, замена счастию она ))  
Исправился ;)

{quote}{login=Z}{date=16.11.2011 03:20}{thema=Re: }{post}{quote}{login=angrygrey}{date=16.11.2011 03:11}{thema=}{post}Во вложении. Надеюсь, сейчас будет понятно.{/post}{/quote}  
Вторые грабли сегодня...  
Первые - http://www.planetaexcel.ru/forum.php?thread_id=34197  
"Нормальные герои всегда идут в... Или Word'a нам только и не хватало ;)  
См. - маленький_удаленький - http://www.picpick.org/"  
--  
72494{/post}{/quote}  
 
К сожалению или к счастью, я не имею возможности на рабочем компьютере устанавливать какие-либо программы, поэтому пользуюсь всеми доступными приложениями ;).

Во вложении. Надеюсь, сейчас будет понятно.

Sub ColorRow()  
Dim i As Long, j As Long  
Range("A1").Select  
Selection.End(xlDown).Select  
Selection.Activate  
a = ActiveCell.Row  
Range("A1").Select  
  Do While Not IsEmpty(ActiveCell.Value)  
      ActiveCell.Offset(0, 1).Select  
  Loop  
  Selection.Activate  
  b = ActiveCell.Column - 1  
For i = 2 To a  
   For j = 1 To b  
    Select Case Worksheets("d1").Cells(i, j).Value  
     Case Is <> Worksheets("d2").Cells(i, j).Value  
      Worksheets("d1").Range(Cells(i, 1), Cells(i, b)).Interior.ColorIndex = 3  
    End Select  
   Next j  
Next i  
End Sub