Sub Макрос1()
With Worksheets("Лист1")
    Sheets("Лист1").Select
    Range("B5:F32").Select
    Selection.SpecialCells(xlCellTypeConstants, 1).Select
    Selection.Copy
    Range("J9:N36").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
            Application.CutCopyMode = False
End With
End Sub

Option Base 1
Sub sss()
Dim arrin, arrout(1 To 27, 1 To 5)
arrin = Range("B6:F32")
For r = 1 To 27
    For c = 1 To 5
        If IsEmpty(arrin(r, c)) Then
            arrout(r, c) = "хххххххх"
        Else
            arrout(r, c) = arrin(r, c)
        End If
    Next c
Next r
Range("J6:N32") = arrout
End Sub

Sub help()
'
    Set SourceRng = Range("A1:ai1000")
    Set ResultRng = Range("AK1:BS1000")
    Set InsertRng = Range("AK1:BS1000")
    Application.ScreenUpdating = False 'отключаем экран
    For i = 1 To SourceRng.Count
        If Len(SourceRng.Item(i).Value) = 0 Then
            ResultRng.Item(i).Value = InsertRng.Item(i).Value
        Else
            ResultRng.Item(i).Value = SourceRng.Item(i).Value
        End If
    
    Next
    Application.ScreenUpdating = True 'включаем экран
   
End Sub

Sub ttt()
    Range("A1").CurrentRegion.Copy Range("AK1")
End Sub

Option Base 1Sub sss()
Dim arrin, arrout(1 To 27, 1 To 5)
arrin = Range("B6:F32")
For r = 1 To 27
    For c = 1 To 5
        If len(arrin(r, c))=0 Then
            arrout(r, c) = "хххххххх"
        Else
            arrout(r, c) = arrin(r, c)
        End If
    Next c
Next r
Range("J6:N32") = arrout
End Sub