Вывести в таблицу определенное количество записей - VBA

Формулировка задачи:

Есть ячейка ("W4") на листе ("КомпьюВеда") в которой указано количество единиц техники. В ячейке ("C4") лежит наименование техники. Необходимо нажатием кнопки перенести на лист ("Лист1") в список столько наименований сколько указано в ячейке ("W4"). Список длится от Range("B6:B53"). Скриншот прилагаю. Есть коды. Я с ними весь день толкаюсь.

                    Листинг программы
                
 
                        
                          
                    
Private Sub CommandButton3_Click()
For i = 0 To 5
If Sheets("КомпьюВеда").Range("W4") > 0 Then
Sheets("Лист1").Cells(i, 1) = Sheets("КомпьюВеда").Range("C4")
End If
Next i
                  * * *
schet = Sheets("КомпьюВеда").Range("W4")
If schet > 0 Then
nam = Sheets("КомпьюВеда").Range("C4")
'Sheets("Лист1").Range("B6:B60") = nam
End If
schet = Sheets("Лист1").Cells(1, 6)
Sheets("Лист1").Cells(6 + schet, 2) = nam
End Sub

Решение задачи: «Вывести в таблицу определенное количество записей»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Public Sub Stepan888()
If Workbooks("888.xlsm").Worksheets("КомпьюВеда").Range("W4").Value > 0 Then
Dim S As String
S = Workbooks("888.xlsm").Worksheets("КомпьюВеда").Range("W4").Value + 5
Workbooks("888.xlsm").Worksheets("Лист1").Range("A2:A49").ClearContents
Workbooks("888.xlsm").Worksheets("КомпьюВеда").Activate
Range("C6:C" & S).Select
Selection.Copy
Workbooks("888.xlsm").Worksheets("Лист1").Activate
Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
End If
End Sub