Macro - Update Info and Print out

[SaiChu]

Hello Mr Excel,
I recorded a macro to print individual scorecards for six people. I have to get the name into cell C12 to update the information and then print the scorecard. Am I able to automate this macro to allow it to print more than six names and stop at the end of the last name (stop at a blank cell)?

Thank you,
SaiChu


Sub Print_Scorecard()
'
' Print_Scorecard Macro
'

'
Range("C12:F12").Select
ActiveCell.FormulaR1C1 = "=R[-8]C[17]"
Range("C13:F13").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("C12:F12").Select
ActiveCell.FormulaR1C1 = "=R[-7]C[17]"
Range("C13:F13").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("C12:F12").Select
ActiveCell.FormulaR1C1 = "=R[-6]C[17]"
Range("C13:F13").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("C12:F12").Select
ActiveCell.FormulaR1C1 = "=R[-5]C[17]"
Range("C13:F13").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("C12:F12").Select
ActiveCell.FormulaR1C1 = "=R[-4]C[17]"
Range("C13:F13").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("C12:F12").Select
ActiveCell.FormulaR1C1 = "=R[-3]C[17]"
Range("C13:F13").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False

End Sub