спасибо! Функция действительно работает, разобрался с ней...

Так я и вписал функцию после моего кода, она отделилась отдельной строчкой(редактор отделил для удобства чтения кода).  
Дальше я попытался использовать эту функцию и ничего не вышло...

Уважаемый Казанский!Подскажите как воспользоваться вашей функцией, я пока в макросах мало понимаю, только пару дней как начал изучать..  
Вот макрос который у меня есть на данный момент.  
Sub DelRows()  
Dim iLastRow As Long, i As Long  
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row  
For i = iLastRow To 1 Step -1  
If Application.WorksheetFunction.CountA(Range(Cells(i, 1), Cells(i, 5))) < 3 Then  
Rows(i).Delete  
End If  
Next  
End Sub  
 
Sub Format_Table()  
'  
' Format_Table Ìàêðîñ  
'  
' Ñî÷åòàíèå êëàâèø: Ctrl+f  
'  
     
    Rows("1:5").Select  
   Selection.EntireRow.Delete  
     
     
   ActiveSheet.Cells.Select  
Selection.Replace What:=".**", Replacement:=""  
Selection.Replace What:="'", Replacement:=""  
Range("A1").Select  
   Application.CutCopyMode = False  
   Range("A1").Select  
   ActiveCell.FormulaR1C1 = "Íàèìåíîâàíèå(ðóññêèé)"  
   Range("D1").Select  
   ActiveCell.FormulaR1C1 = "Öåíà"  
   Range("E1").Select  
   ActiveCell.FormulaR1C1 = "Íà ñêëàäå"  
     
   Columns("C:C").Select  
   Application.CutCopyMode = False  
   Selection.ClearContents  
   Columns("F:F").Select  
   Selection.ClearContents  
   Range("A2:E6").Select  
   Selection.Columns.AutoFit  
   Selection.Rows.AutoFit  
   With Selection.Font  
       .Name = "Times New Roman"  
       .Size = 11  
       .Strikethrough = False  
       .Superscript = False  
       .Subscript = False  
       .OutlineFont = False  
       .Shadow = False  
       .Underline = xlUnderlineStyleNone  
       .ThemeColor = xlThemeColorLight1  
       .TintAndShade = 0  
       .ThemeFont = xlThemeFontNone  
   End With  
   Columns("E:E").ColumnWidth = 4  
   Columns("D:D").ColumnWidth = 8  
Call DelRows  
Columns("A:A").Select  
   Selection.Insert Shift:=xlToRight  
    Range("A1").Select  
   ActiveCell.FormulaR1C1 = "Àðòèêóë"  
   Range("C1").Select  
   ActiveCell.FormulaR1C1 = "Íàèìåíîâàíèå(àíãëèñêèé)"  
     
     
   Columns("B:B").Select  
   Selection.Copy  
   Columns("C:C").Select  
   ActiveSheet.Paste  
   Application.CutCopyMode = False  
End Sub  
 
Куда мне вставить вашу функцию?  
Мне нужно пройтись по всем строкам листа, строк там много..

Гуру, помогите пожалуйста!  
Есть таблица(приложу пример) в которой название товара и артикул в одной ячейке, при чём артикул идёт после названия.  
Мне необходим макрос способный вытянуть артикул из ячейки с названием и перенести его в соответствующую ячейку озаглавленную артикул.  
Есть правда проблема, т.к. не во всех ячейках с названием товара есть артикул и он состоит иногда из семи а иногда и из восьми цифр.  
Долго мучил справочник по макросам и вроде бы понял что тут нужно какую-то логику использовать что-то типа If... else

К сожалению макрос не срабатывает, вернее в итоге удаляет все строки....  
Прилагаю исходный текст своего макроса в который нужно впихнуть модуль для удаления строк в которых заполнено не больше чем 2 ячейки  
 
Sub Format_Table()  
'  
' Format_Table Макрос  
'  
' Сочетание клавиш: Ctrl+f  
'  
     
    Rows("1:5").Select  
   Selection.EntireRow.Delete  
     
     
   ActiveSheet.Cells.Select  
Selection.Replace What:=".**", Replacement:=""  
Selection.Replace What:="'", Replacement:=""  
Range("A1").Select  
   Application.CutCopyMode = False  
   Range("A1").Select  
   ActiveCell.FormulaR1C1 = "Product"  
   Range("D1").Select  
   ActiveCell.FormulaR1C1 = "Cost"  
   Range("E1").Select  
   ActiveCell.FormulaR1C1 = "Quantity"  
     
   Columns("C:C").Select  
   Application.CutCopyMode = False  
   Selection.ClearContents  
   Columns("F:F").Select  
   Selection.ClearContents  
   Range("A2:E6").Select  
   Selection.Columns.AutoFit  
   Selection.Rows.AutoFit  
   With Selection.Font  
       .Name = "Times New Roman"  
       .Size = 11  
       .Strikethrough = False  
       .Superscript = False  
       .Subscript = False  
       .OutlineFont = False  
       .Shadow = False  
       .Underline = xlUnderlineStyleNone  
       .ThemeColor = xlThemeColorLight1  
       .TintAndShade = 0  
       .ThemeFont = xlThemeFontNone  
   End With  
   Columns("E:E").ColumnWidth = 4  
   Columns("D:D").ColumnWidth = 8  
End Sub  
 
Если что прошу сильно ногами не пинать, я только-только начал осваивать макросы....=)    
Заранее огромное спасибо! =)

Народ! Помогите пожалуйста!  
Нужен макрос для удаления строки если в ней заполнено н больше двух ячеек.  
Т.Е. имеется некая таблица в которой есть строки в которых заполнены три ячейки, а есть строки где заполнена только одна или две ячейки. Так вот нужно безжалостно прибить последние два варианта строк.