Sub Macro1()
Dim LastRow As Long, i As Long, FreeRow As Long
    LastRow = Cells(Rows.Count, 3).End(xlUp).Row 'Узнали номер последней заполненной строки по столбцу С
    Range(Cells(13, 1), Cells(LastRow + 1, 6)).ClearContents 'Очистили диапазон
    'Range(Cells(13, 1) это 13 строка, 1 это столбец, Синтаксис объекта Cells: Cells(Rowindex, Columnindex)
    'Rowindex - номер строки
    'Columnindex - номер столбца
    FreeRow = 13 'Присвоили переменной значение с какой строки вводить данные: свободная строка №13
    Application.ScreenUpdating = False 'Отключили обновление экрана (чтобы не мельтешил)
    With Sheets("ян") 'откруда берутся данные
        LastRow = .Cells(Rows.Count, 2).End(xlUp).Row 'Нашли номер последней строки в столбце B
        For i = 2 To LastRow 'Цикл со 2-й по последнюю строку
            If .Cells(i, 6) > 1 Then 'ищет в 6-м столбе число больше 1 Если ячейка столбца F > 1, то
                Range(Cells(FreeRow, 1), Cells(FreeRow, 6)).Value = Range(.Cells(i, 3), .Cells(i, 6)).Value
                FreeRow = FreeRow + 1 'Увеличили на единичку номер свободной строки
                'Range(Cells(FreeRow, 1) это с какого столбца начинать 1=A
            End If 'Конец проверки
        Next 'Следующая итерация цикла
    End With 'Конец работы с листом
    Application.ScreenUpdating = True 'False Включили обновление экрана, True выключили
End Sub