ВЫПОЛНЕНИЕ ВСТАВКИ СТРОК НА НЕСКОЛЬКИХ ЛИСТАХ

[VITA11111]

НУЖНО ЧТОБЫ ВЫПОЛНЯЛОСЬ НЕ ТОЛЬКО НА листе "1" НО И НА ЛИСТАХ 2,3,4,5,6,7,8,9,10,11,12

    
Sub dobavit_stroki()
    Dim x As Range, ws As Worksheet
    Application.ScreenUpdating = False: Application.Calculation = xlManual
    Set ws = Sheets("kn")
    With Sheets("1")
        Set x = .Range(.Cells(ws.[k7], 1), .Cells(ws.[L7], 137))
        x.Copy: x.Insert Shift:=xlDown
    End With
    Application.Calculation = xlAutomatic
End Sub

?КАК ЗАПИСАТЬ В СТРОКУ With Sheets("1")?

[kalbasiatka]

OFF:
Может один раз файл с проблемой показать, чем кучу тем с одним и тем же кодом постить?