Cells(1,1)=cells(1,1)/1000  
Это, если без дополнительных проверок.

Юрий, спасибо большое!  
Все работает, только не совсем так, как хотел пользователь :)  
 
Если в ячейке просто число - то все отлично!  
А если в ячейке ссылка, то при выполнении макроса, который Вы помогли создать, ссылка переделывается в значение \1000.  
 
Или:  
a1 = 600500  
b1= a1.  
Если выполнить Ваш макрос над активной ячейкой b1,  то в этой ячейке окажется значение 600,5.  
 
А хотелось бы, чтобы после выполнения макроса ячейка b1=a1/1000.  
 
Похоже, что не совсем корректно сформулировал задачу:  
Нужен макрос, который бы:  
_ вставлял в начало активной ячейки "=";  
_ вставлял в конец активной ячейки "\1000".  
 
В случае, если активная ячейка - ссылка, Excel сам уберет лишний знак "=".  
 
Понимаю, что это немного более сложная задача, однако именно такая формулировка задачи полностью отвечает поставленным задачам.  
 
Буду очень признателен, если удастся решить эту проблему!  
Дима.

Уточню - имеющуюся формулу надо в скобки брать, кстати так работает PasteSpecial.  
 
Sub DivideBy1000()  
With ActiveCell  
   If IsNumeric(.Value) And Not IsEmpty(.Value) Then  
       If .HasFormula Then  
           .Formula = "=(" & Mid(.Formula, 2) & ")/1000"  
       Else  
           .Formula = "=" & .Formula & "/1000"  
       End If  
   End If  
End With  
End Sub

Ну, может, и не надо. Пусть автор прояснит. Я сделал по заданию  
 
*************************************************  
Нужен макрос, который бы:  
_ вставлял в начало активной ячейки "=";  
_ вставлял в конец активной ячейки "\1000".  
*************************************************