Добрый день. Перед тем как писать я прочла большинство имеющейся здесь информации по нужному мне вопросу.  
Больше всего подошел ответ http://www.planetaexcel.ru/forum.php?thread_id=17434    
Но у меня не много посложнее задача.  
В книге 3 листа, пронумерованы. На Лист4 должна попадать информация с трех предыдущих.  
Данные в ячейках проставлены. Данные ячейки А1 листа 1, должны быть скопированы на Лист 4 в ячейку А1, данные листа2 ячейки А1, должны быть скопированы на лист4 в ячейку А2. Так по всем листам.  
Сейчас работаю и использую  CurrentRegion но либо неверно, либо совсем неверно.  
 
Прошу вашей консультации.

Добрый день. Окажите содействие в поиске ошибки.  
 
 
Public Sub Operat_time()  
   Dim i As Integer  
   Dim n As Integer  
   Dim shtX As Worksheet  
     
   Dim K1 As Integer  
   Dim K2 As Integer  
   Dim K3 As Integer  
     
   Dim Date1 As Integer  
   Dim Number As Integer  
     
     
   K1 = Worksheets("Plan").Range("C3")  
   K2 = Worksheets("Plan").Range("C4")  
   K3 = Worksheets("Plan").Range("C5")  
   Date1 = Worksheets("1").Range("BH6")    
   Number = ActiveWorkbook.ActiveSheet.Range("D3").Value  
 
   For Each shtX In ThisWorkbook.Worksheets   êíèãè  
 
      If IsNumeric(shtX.Name) Then  
           For i = 7 To 26 Step 1  
               n = shtX.Name  
                 
                   If ActiveSheet.Range("C" & i).Value = K1 Then  
                       ActiveSheet.Range("BD" & i).FormulaLocal = K1 & " / " & Date1 & " * " & Number  
                         
                   ElseIf ActiveSheet.Range("C" & i).Value = K2 Then  
                       ActiveSheet.Range("BD" & i).FormulaLocal = K2 & " / " & Date1 & " * " & Number  
                         
                   ElseIf ActiveSheet.Range("C" & i).Value = K3 Then  
                        ActiveSheet.Range("BD" & i).FormulaLocal = K3 & " / " & Date1 & " * " & Number  
                         
                   End If  
           Next i  
     End If  
   Next shtX  
End Sub  
 
Проблема с получением результатов по вложенным  IF, где ищем значение ячейки по формуле.