Copy selected columns to last row

[thedeadzeds]

Hi Guys, this is porbably simple but i cant seem to figure it out. Is there a way to change the copy range below to include FF4 and FS4:FU4
So the total range would be:
A4:AX4 and FF4 and FS4:FU4

Sub Copy_Values_Aud()

Application.ScreenUpdating = False
Dim Lastrow As Long
Lastrow = Sheets("Aud Formulas").Cells(Rows.Count, "A").End(xlUp).Row
    Sheets("Aud Formulas").Range("A4:AX" & Lastrow).Copy
    Sheets("Aud Values").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.Goto Sheets("Menu").Range("A1")
Application.CutCopyMode = False
Application.ScreenUpdating = True

    Sheets("Menu").Select
    Range("I4").Select
    ActiveCell.FormulaR1C1 = "Yes"
    Range("A1").Select


End Sub

 

[Fluff]

How about

   Dim Lastrow As Long
   With Sheets("Aud Formulas")
      Lastrow = .Cells(Rows.Count, "A").End(xlUp).Row
      Intersect(.Rows("4:" & Lastrow), .Range("A:AX,FF:FF,FS:FU")).Copy
   End With

 

[thedeadzeds]

Amazing, thanks very much

 

[Fluff]

You're welcome & thanks for the feedback.