спасибо большое!:-) второй вариант идеально меняет столбцы)  
А можно сделать так, чтобы он менял их в зависимоти от условия? Проверял каждую ячейку столбца F и, если она заполнена, то менял значение в соответствующей ячейке в столбце С на F, а если пустая - в С на G?  
Пробовала так, но он подставляет либо один столбец, либо другой, а нужно, чтобы оба как бы в один объединялись...  
Sub reCol()  
Dim i As Range  
Dim Col As Range  
Set Col = Range("F1:F" & Cells(Rows.Count, "F").End(xlUp).Row)  
For Each i In Col  
If i = "" Then  
Range("C1:C" & Cells.SpecialCells(xlLastCell).Row).Value = Range("F1:F" & Cells.SpecialCells(xlLastCell).Row).Value  
Else  
Range("C1:C" & Cells.SpecialCells(xlLastCell).Row).Value = Range("G1:G" & Cells.SpecialCells(xlLastCell).Row).Value  
End If  
End Sub

Файл