thedeadzeds
Active Member
- Joined
- Aug 16, 2011
- Messages
- 442
- Office Version
- 365
- Platform
- Windows
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
So the total range would be:
A4:AX4 and FF4 and FS4:FU4
VBA Code:
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