Нужна помощь в сортировке нескольких кодов

Question

Мне нужна помощь с кодом VBA.Мне нужно скопировать строки (A2: A4) и вставить все три строки из A5 и т. Д., Используя поле ввода (максимум 200 раз).Мне нужно спрятать все 600 строк и показать только при выборе поля ввода.(например: - если я введу 5 раз в поле ввода. VBA, чтобы вставить A2: A4 пять раз и скрыть остальные строки).

Это пример кода, над которым я работаю.Я знаю, что все неправильно.

    '>>>>>>>>>>IF CHANGES HIDE UNUSED ROWS
    If Not Intersect(Target, Range("A70:A89")) Is Nothing Then
        'Select First Row
            Range("N70").Select
        'Set Variables
            y = 1
7
            y = y + 1
        'If Correct Number of Rows have been counted goto end of sub
            If y = 22 Then
                GoTo 8
            End If
        'Is Active Data Row REQUIRED
            X = ActiveCell.Value
        'If Not then Hide Row
            If X = "1" Then
                Selection.EntireRow.Hidden = True
            End If
        'If yes then unhide
            If X = "" Then
                Selection.EntireRow.Hidden = False
            End If
        'Go to Next Row & Repeat Above
            ActiveCell.Offset(1, 0).Select
            GoTo 7

8
    End If


'Go Back To Original Active Cell
    Range(cell).Select
   Application.ScreenUpdating = True