Sub blah()
With Sheets("CTR Out")
For Each rw In Range("CTR_DATA").ListObject.DataBodyRange.Rows
.Range("C5,C11,C14:C17").ClearContents
.Range("C5").Value = rw.Cells(1).Value
.Range("C11").Value = rw.Cells(2).Value
.Range("C14").Value = rw.Cells(3).Value
.Range("C15").Value = rw.Cells(4).Value
.Range("C16").Value = rw.Cells(5).Value
.Range("C17").Value = rw.Cells(6).Value
.Copy
ActiveWorkbook.Close True, "C:\Users\Public\Documents\" & rw.Cells(1).Value '<<< adjust the path for your system
Next rw
.Range("C5,C11,C14:C17").ClearContents
End With
End Sub