Извлечь данные из счётчика

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 01.03.2011 (Ô)
'
 
'
End Sub
Sub m_1()
Application.Run "m_2"
End Sub
Sub m_2()
Static Счётчик As Long
Счётчик = Счётчик  + 1
If Счётчик = 12 Then
    Счётчик = 1
Dim vПоследняястрока As Long
vПоследняястрока = Worksheets("Лист2").Range("B13").Range("C13").Range("D13").Range("E13").SpecialCells(xlLastCell).Row + 1
Worksheets("Лист2").Cells(vПоследняя строка, 1).Value = Format(Now, "hh:mm:ss")
Worksheets("Лист2").Cells(vПоследняя строка, 2).Value = Worksheets("Лист2").Range("B13").Value
Worksheets("Лист2").Cells(vПоследняя строка, 3).Value = Worksheets("Лист2").Range("C13").Value
Worksheets("Лист2").Cells(vПоследняя строка, 4).Value = Worksheets("Лист2").Range("D13").Value
Worksheets("Лист2").Cells(vПоследняя строка, 5).Value = Worksheets("Лист2").Range("E13").Value
Range("B1:B10").Clear
End If
Worksheets("Лист2").Cells(Счётчик, 1).Value = Format(Now, "hh:mm:ss")
Worksheets("Лист2").Cells(Счётчик, 2).Value = Worksheets("Лист1").Range("c2").Value
Application.OnTime Now + TimeValue("00:00:01"), "m_1"
End Sub

Sub m_1()
Application.Run "m_3"
End Sub

Sub m_3()
Dim Лист2 As Excel.Worksheet
Dim myArray As Variant
Static Счётчик As Long
Счётчик = Счётчик + 1
Set Лист2 = Worksheets("Лист2")
If Счётчик = 12 Then
    With Лист2
        myArray = .Range("B13:E71")
        Счётчик = 1
        .Range("B14:E72") = myArray
    End With
End If
With Лист2
    .Cells(Счётчик, 1).Value = Format(Now, "hh:mm:ss")
    .Cells(Счётчик, 2).Value = Worksheets("Лист1").Range("c2").Value
End With
Application.OnTime Now + TimeValue("00:00:01"), "m_1"
End Sub

Sub m_2()
Dim Лист2 As Excel.Worksheet
Static Счётчик As Long
Счётчик = Счётчик + 1
Set Лист2 = Worksheets("Лист2")
If Счётчик = 12 Then
    With Лист2
        .Range("B13:E71") = .Range("B14:E72")
        Счётчик = 1
    End With
End If
With Лист2
    .Cells(Счётчик, 1).Value = Format(Now, "hh:mm:ss")
    .Cells(Счётчик, 2).Value = Worksheets("Лист1").Range("c2").Value
End With
Application.OnTime Now + TimeValue("00:00:01"), "m_1"
End Sub