这里尝试一下暂时没有完全了解情况。
如果可以选择向下移动已经在范围B：K下的公式。假设实际数据（不是标题）从单元格AI 7开始，并且在列AI：AR中没有其他数据。
在要追加数据的行上
@列B尝试公式：=$AI$7:INDEX($AI:$AK,COUNTA($AI:$AI)+5,3)
@列F尝试公式：=$AM$7:INDEX($AM:$AO,COUNTA($AM:$AM)+5,3)
@列J尝试公式：=$AQ$7:INDEX($AQ:$AR,COUNTA($AQ:$AQI)+5,3)
如果你使用的是365版本的Excel，应该可以工作，对于旧版本来说有点棘手。
我相信k1 dr 0 ck的VBA方法会更合适，甚至允许插入空行，通过将现有行（包含公式）向下推来追加数据。
在我的回答中使用公式方法，因为我看到了问题标题中的（使用公式）部分。

如果你不想要公式，试试

Sub AppendColumns()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "Q").End(xlUp).Row ' find the last row of column Q
    
    Dim i As Long
    For i = 7 To lastRow ' loop through each row starting at row 7
        Cells(i, "AX").Value = Cells(i, "Q").Value & "--" & Cells(i, "AT").Value
        Cells(i, "AY").Value = Cells(i, "R").Value & "--" & Cells(i, "AU").Value
        Cells(i, "AZ").Value = Cells(i, "S").Value & "--" & Cells(i, "AV").Value
    Next i
End Sub