Range("1:1,4:4,7:7").Select
Range("A7").Activate
Dim intCnt As Integer
For intCnt = 1 To Application.Selection.Areas.Count
Application.Selection.Areas(intCnt).Item(2) = Application.Selection.Areas(intCnt).Item(1)
Debug.Print Application.Selection.Areas(intCnt).Item(1)
Next intCnt
End Sub
Sub Macro1()
Range("1:1,4:4,7:7").Select
Range("A7").Activate
Dim intCnt As Integer
For intCnt = 1 To Application.Selection.Areas.Count
Application.Selection.Areas(intCnt).Item(2) = Application.Selection.Areas(intCnt).Item(1)
Debug.Print Application.Selection.Areas(intCnt).Item(1)
Next intCnt
End Sub