sub clear()  
range("g8:m33").cells.clearcontents  
range("g41:m67").cells.clearcontents  
end sub

Спасибо за помощь. Но объясните пожалуйста поподробней как это сделать. Я еще только учусь

Если вы едите не чаще 3 раз в сутки, зачем вам продукты?

А может алекс = САНЕК ???

Народ хватит прикалываться. помогите пожалуйста макрос написать. изменение месяца на предыдущий и запись его прописью.  
у меня выдает ошибку  
 
Sub Остатки()  
 
   Range("U13:U43").Select  
   Selection.Copy  
   Range("E13:E43").Select  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
                   
        Dim mesyc As Date  
   Set oRange1 = Worksheets("Лист1").Range("A1")  
   Set oRange2 = oRange1.Range("AD6")  
   mesyc = Now  
   mesyc=DateAdd("m", -1, "mesyc")  
   oRange2.Value = mesyc  
End Sub  
   в последней строчке ошибка,не работает функция

Ну как? Простим?

Саму функцию по изменению номера месяца на название я нашел. но как ее увязать с макросом не понимаю. ((((  
 
Function dhMonthName(intMonth As Integer) As String  
   dhMonthName = Choose(intMonth, "Январь", "Февраль", "Март", _  
   "Апрель", "Май", "Июнь", "Июль", "Август", "Сентябрь", _  
   "Октябрь", "Ноябрь", "Декабрь")  
   End Function  
 
Ау. Я ж извинился. помогите плиз.

CAHEK, используйте функцию Format(Date, "MMMM")  
Sub tt()  
[a1] = Format(Date, "MMMM")
End Sub  
Подставляете вместо Date Вашу дату, и будет название месяца прописью. Но этот вариант не очень если у Вас несколько локалей офиса.

Спасибо за помощь. Благодаря вам я второй день сижу над книжкой по VBA. Остался один вопрос в начале макроса происходит выделение ячеек  
 
   Range("U13:U43").Select  
   Selection.Copy  
 
Как сделать чтобы снять это выделение.  
 
А вот что у меня получилось благодаря Миронову и чуть-чуть мне.  
 
Sub Остатки()  
   Range("U13:U43").Select  
   Selection.Copy  
   Range("E13:E43").Select  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False        
           
        Dim mesyc As Variant  
        Dim a1 As Date  
        Dim a2 As Integer  
        Dim a3 As String  
     
   Set oRange1 = Worksheets("Лист1").Range("A1")  
   Set oRange2 = oRange1.Range("AD7")  
   a1 = Date  
   mesyc = DateAdd("m", -2, a1)  
   a2 = DatePart("m", mesyc)  
   a3 = dhMonthName(a2)  
      oRange2.Value = a3  
             
End Sub  
     
   Function dhMonthName(a2 As Integer) As String  
   dhMonthName = Choose(a2, "Январь", "Февраль", "Март", _  
   "Апрель", "Май", "Июнь", "Июль", "Август", "Сентябрь", _  
   "Октябрь", "Ноябрь", "Декабрь")  
   End Function  
 
 
Помогите пожалуйста на последок. sahek_by@mail.ru

Я заменил код на ваш, но поле U13:U43 после выполнения макроса выделено бегущей линией,а E13 выделенно темным.    
Спасибо что откликнулись.    
Подскажите, если знаете, как задать условие чтобы копировались только ячейки со значением неравным 0.

Спасибо. Я и пользуюсь макрорекодером. Только как-то коряво получается.  
Помогите пожалуйстас еще одной задачкой.  
я вывел название месяца через переменную a3 т.е появился месяц февраль,а как задать чтобы получилось "за февраль 2012г" в столбце АД7, где a3=февраль и a4=год

>> два похожих, но разных варианта UDF, например dhMonthName() и DhMonthName()  
:-) Игорь, а ты сам пробовал создать две UDF с такими именами?

Спасибо, с этим вопросом разобрался. А как задать в нижеприведенных строках    
 
   Range("U13:U43").Copy  
   Range("E13").PasteSpecial Paste:=xlPasteValues  
 
условие, чтобы копировались ячейки из U13:U43 неравные нулю в соответствующие ячейки Е13:Е43?