GRE Score 323 (170Q/153V) - University Selection Advise needed

[shivendra89]

Sub AppendITCostRatioMDB()

Dim intCounter As Integer
Dim intColumn As Integer
Dim strNameRange As String

intColumn = Sheets("ITCostRatio").Range("IJ1").End(xlToLeft).Column
Sheets("ITCostRatio").Range("FE8:FL15000").ClearContents

 For intCounter = 7 To intColumn
    
    strNameRange = Sheets("ITCostRatio").Cells(1, intCounter).Value

  Sheets("ITCostRatio").Range(strNameRange).Copy
  Sheets("ITCostRatio").Range("FE65355").End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)

Next

End Sub