Sub qqq()
    Dim lr1  As Long   'строка на листе 1
    Dim lr2  As Long   'строка на листе 2
    Dim lc2  As Long   'столбец на листе 2
    lr2 = 1
    lc2 = 1
    ThisWorkbook.Worksheets("Один").Activate
For lr1 = 2 To Cells(Rows.Count, 1).End(xlUp).Row
  If Worksheets("Один").Cells(lr1, 1).Value <> "" Then
     Worksheets("Два").Cells(lr2, lc2).Value = Worksheets("Один").Cells(lr1, 1).Value
     lc2 = lc2 + 1
  Else
     lr2 = lr2 + 1
     lc2 = 1
  End If
Next lr1
End Sub

For i = 1 To 10
    'MsgBox i
    Debug.Print i
Next i

    Dim lr As Long
    Dim i As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
 If Rows(i).Hidden = False Then
    MsgBox Cells(i, 2).Value
    'здесь Ваш код со ссылкой на Cells(i, 2).Value
 End If
Next i

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim lr As Long
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:A100000")) Is Nothing Then
   lr = Target.Row
   Worksheets("Лист1").Range("A" & lr).Value = Worksheets("Лист1").Range("A" & lr).Value
End If
End Sub

Sub CreateHypelink_1()
    Dim iCell As Range, sAddr
    Worksheets("Хранение").Activate
    Application.ScreenUpdating = False
    For Each iCell In Worksheets("Хранение").Range("E3:E110")
        On Error Resume Next
        If iCell.Value <> "" Then
           sAddr = Worksheets("Хранение детали").Range("E1:E1400").Find(What:=iCell.Value).Address
          If Err = 0 Then
             iCell.Hyperlinks.Add anchor:=iCell, Address:="", SubAddress:="'" & "Хранение детали" & "'!" & sAddr
          Else
             Err.Clear
          End If
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Sub CreateHypelinkInTextCellv2()
    Dim iCell As Range, iText$, sAddr
    For Each iCell In Worksheets("Лист1").[E2:E15]
        iText = iCell.Value
        If iText <> "" Then
        sAddr = Worksheets("Лист2").Range("C1:C10000").Find(What:=iText).Address
        iCell.Hyperlinks.Add anchor:=iCell, Address:="", SubAddress:="'" & "Лист2" & "'" & "!" & sAddr
        End If
    Next
End Sub

Sub Hide_Col()
    Dim sTov  As String  'товар
    Dim lCol As Long     'столбец
    Dim lRow As Long     'строка
    ThisWorkbook.Worksheets("Лист1").Activate
On Error GoTo Er1
'получаем значение из автофильтра:
    sTov = Replace(Worksheets("Лист1").AutoFilter.Filters(1).Criteria1, "=", "")
'строка с выбранным товаром:
    lRow = Range("A2:A1000").Find(What:=sTov).Row
'проходим циклом по столбцам и скрываем пустые:
For lCol = 8 To Cells(1, Columns.Count).End(xlToLeft).Column
    If Cells(lRow, lCol).Value = "" Then
       Columns(lCol).EntireColumn.Hidden = True
    End If
Next lCol
    Exit Sub
Er1:
    MsgBox "Не выбран товар    "
End Sub

Option Explicit
Dim T_kol As String

Sub Right_Colontit()
    T_kol = "&8Мой текст"
    ActiveSheet.PageSetup.RightHeader = T_kol
End Sub

Sub Stroka_()
MsgBox Mid(T_kol, 3, 100)
End Sub

For i = 2 To Cells(Rows.Count, 1).End(xlUp).row
    If Cells(i, 1).Value = ComboBox1.Value And _
       Cells(i, 4).Value = ComboBox2.Value Then
       MsgBox "Совпадение в строке " & (i)
       Exit For
    End If
Next i

Private Sub Worksheet_Change(ByVal Target As Range)

=ЕСЛИ(B4=ДВССЫЛ("C"&СТРОКА());"Да";"Нет")