Какой код VBA следует использовать для копирования данных из столбца A В F на листе Excel в другой лист минус пустые ячейки?

Я хочу скопировать данные из отчета на новый лист с ячейками, расположенными так, как я хочу (к сожалению, исходный отчет не может быть отформатирован!).

У меня есть форматирование, однако он создает строки, в которых данные имеют 0.

Я хочу, чтобы код VBA скопировал ячейки из Столбцов A:F на другой лист. Я видел примеры того, как делать отдельные столбцы, но я слишком Новичок, чтобы воссоздать код для других столбцов (и я хочу, чтобы это выглядело красиво и аккуратно!)

Sub copynoblanksA()
'
'

'
Dim sh1 As Worksheet, s2 As Worksheet, i As Long
Dim j As Long, N As Long, r1 As Range

    Set sh1 = Sheets("List1")
    Set sh2 = Sheets("Sheet4")

N = sh1.Cells(Rows.Count, "A").End(xlUp).Row
    j = 1

For i = 1 To N
        Set r1 = sh1.Cells(i, "A")
        If r1.Value <> "" Then
            r1.Copy sh2.Cells(j, "A")
            j = j + 1
        End If
    Next i


End Sub