Условие if else в цикле for

[Petrov210217]

У меня получилось так

Sub Кнопка1_Щелчок()
    Dim i As Long, j As Long, i2 As Long, j2 As Long
    
    With Sheets("Лист2") 'последняя заполненная ячейка на листе2
    lLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
    End With
    
    With Sheets("Лист3") 'последняя заполненная ячейка на листе3
    lLastRow2 = .Cells(.Rows.Count, 1).End(xlUp).Row
    End With
    
    For i = 1 To 5 'номер строки
        For j = 1 To 20 'номер столбца
            'Sheets("Лист3").Range("C1") = i
            'Sheets("Лист3").Range("C2") = j
            For i2 = 1 To 5 'номер строки
                For j2 = 1 To 20 'номер столбца
                    If Sheets("Лист2").Cells(1 + i, 1 + j) = Sheets("Лист3").Cells(1 + i2, 1 + j2) And Sheets("Лист2").Cells(1 + i, 2 + j) = Sheets("Лист3").Cells(1 + i2, 2 + j2) And Sheets("Лист2").Cells(1 + i, 4 + j) = Sheets("Лист3").Cells(1 + i2, 4 + j2) And Sheets("Лист2").Cells(1 + i, 5 + j) = Sheets("Лист3").Cells(1 + i2, 5 + j2) Then
                        With Sheets("Лист2").Cells(1 + i, 3 + j)
                            Sheets("Лист3").Cells(1 + i2, 3 + j2).Resize(.Rows.Count, .Columns.Count) = .Value
                        End With
                    End If
                Next
            Next
        Next
    Next
    MsgBox "Преобразование закончено"
    
End Sub

Работает, даже что то копирует. Но есть пара моментов которые надо исправить:
1. Как копировать с цветом? Я сделал текст на листе 2 красным, а макрос копирует текст с листа 2 на лист 3 черным.
2. Как сделать что бы макрос сам выбирал только заполненный диапазон ячеек и не работал там, где ячейки пустые.
Хочу попробовать через If, но не знаю как задать условие что ячейка пустая
Sheets("Лист2").Cells(1 + i, 1 + j) = пустая ячейка,
как записать что в ячейке ничего нет?
Или есть другой вариант?

[Petrov210217]

С пустыми ячейками разобрался. Осталось решить вопрос как копировать с цветом. После выложу готовый код на осмеяние)))

[Hugo121]

Чтобы копировать с цветом - нужно копировать ячейку целиком, а не только её значение.
Если в ячейке формула - тогда возможно нужно сперва копировать формат ячейки, затем её значение, или сперва заменить формулу её значением, затем копировать ячейку.

[IgorGO]

If IsEmpty(Cells(10, 5)) then MsgBox "Ячейка Е10 пустая"