Здравствуйте! Подскажите пожалуйста как правильно надо дописать код, чтобы: если активный лист 1 то with sheets(2) если активный лист 4 то with sheets(5)  
 
Private Sub CommandButton1_Click()  
ActiveSheet.Unprotect Password:="0000"  
Selection.Value = Me.наименование  
Selection.Offset(, 1).Value = Val(цена_закупки)  
Selection.Offset(, 2).Value = Val(цена_продажи)  
Selection.Offset(, 3).Value = Val(кол_во)  
Selection.Offset(, -1).Value = Val(номер)  
 
Dim s$  
   With Sheets(2)  
       Set r = .Range(.[b2], .Range("B" & .Rows.Count).End(xlUp))
       Set x = r.Find(What:=номер.Value, LookAt:=xlWhole)  
       If Not x Is Nothing Then  
        s = x.Address  
           Do  
               x.Offset(, -1) = CDate(Me.дата)  
               x.Offset(, 1) = наименование  
               x.Offset(, 2).Value = Val(Me.кол_во)  
               x.Offset(, 4).Value = Val(цена_продажи)  
               Set x = r.Find(What:=номер.Value, after:=x, LookAt:=xlWhole)  
           Loop While Not x Is Nothing And x.Address <> s  
       End If  
   End With  
Unload Me  
   MsgBox ("ИЗМЕНЕННО УСПЕШНО")  
 
End Sub  
 
Спасибо!