Тип дома	Кол-во квартир	Квартира
Квартирный	44	
Квартирный	557	

Проверить значение ячейки в столбце "кол-во квартир", если 
if ("кол-во квартир" =<1 or null) {
 копируем просто строку
 вставляем скопированную строку
} else {
for (i = 1; i<= "кол-во квартир"; i++) {
    копируем просто строку
    вставляем скопированную строку и добавляем значение "i" в столбец "квартира"
}
}

Помогите с кодом  :) 
Плиз

название	кол-во квартир
пппп	           4
ууууу	
ss	           6

Function copypast()

n = 1
Do
    n = n + 1
    If Cells(n, 2) <= 1 Or IsNull(Cells(n, 2)) Then
        MsgBox ("pusto ili 1")
    Else
        For i = 1 To Cells(n, 2)
            MsgBox (Cells(n, 2).Value)
        Next
    End If
Loop While Len(Cells(n, 2).Value) = Empty

End Function

Function copypast()

n = 1
Do Until Len(Cells(n, 2).Value) = Empty
    n = n + 1
    If Cells(n, 2) <= 1 Or Cells(n, 2) = 0 Then
        MsgBox ("pusto ili 1")
    Else
        For i = 1 To Cells(n, 2)
            MsgBox (Cells(n, 2).Value)
        Next
    End If
Loop

End Function

Sub SHD_AddRows()
  LR = Cells(Rows.Count, 1).End(xlUp).Row
  For i = LR To 1 Step -1
    If Val(Cells(i, 1)) > 1 Then
      Rows(i + 1 & ":" & i + Cells(i, 1)).Insert
    End If
  Next
End Sub

кол-во	Имя
3	Вова
2	Коля
5	Петя

кол-во	Имя
3	Вова
2	Вова
1	Вова
2	Коля
1	Коля
5	Петя
4	Петя
3	Петя
2	Петя
1	Петя

Sub SHD_AddRows()
  LR = Cells(Rows.Count, 1).End(xlUp).Row
  For i = LR To 1 Step -1
    If Val(Cells(i, 1)) > 1 Then
      Rows(i + 1 & ":" & i + Cells(i, 1)).Insert
      For j = i + 1 To i + Cells(i, 1)
        Cells(j, 5) = CStr(i + Cells(i, 1) - j + 1)
            Range(Cells(i, 3), Cells(i, 6)).Select
            Selection.Copy
            Cells(j, 5).Select
            ActiveSheet.Paste
      Next
    End If
  Next
End Sub