こんなことなのかな？

    Set ws3 = Worksheets("Sheet3")

    t = ActiveCell.Offset(1, 0).Resize(1, 7).Value
    ws3.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Resize(1, 7) = t


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他

いつも大変お世話になっております。        
ボケ防止の為にVBA勉強してる７６歳の後期高齢者です

今回の質問は
単一Ｃｅｌｌでなくて
下記のように複数列（同一行）を変数ｔに取り組んでWS3Sheetへ転記したいのです
（変数必要で無しでもOKです）

Range(ActiveCell, ActiveCell.Offset(, 6))

当然ながら下記のコピペでは上手く転記できます

Dim t As Variant

　ActiveCell.Offset(1, 0).Select
         Range(ActiveCell, ActiveCell.Offset(, 6)).Copy
            ws3.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial _                 Paste:=xlPasteValues, Operation:=xlNone, 　　SkipBlanks:=False, Transpose:=False
            Application.CutCopyMode = False

諸先輩方ご教授いただければ幸いです。