I can't find the information I am looking for on loops.

I have the following code and still need to add a couple of more loops.
I have a cell (S1) with the number of loops needed figured out by a calculation.

Sub Surface()

Range("A27").Select

varInput = InputBox("Enter the date analyzed.")
Sheets("Information").Range("C65").Value = varInput

varInput = InputBox("At what depth did this section of the well end at?")
Sheets("Information").Range("E65").Value = varInput

varInput = InputBox("Enter the mud type (either Gel Chem or Floc Water).")
Sheets("Information").Range("F65").Value = varInput

varInput = InputBox("Enter the volume of mud landsprayed.")
Sheets("Information").Range("H65").Value = varInput

varInput = InputBox("Enter the specific gravity (1.0-1.5).")
Sheets("Information").Range("I65").Value = varInput

varInput = InputBox("Enter pH.")
Sheets("Information").Range("J65").Value = varInput

varInput = InputBox("Enter EC.")
Sheets("Information").Range("K65").Value = varInput

varInput = InputBox("Enter Na.")
Sheets("Information").Range("L65").Value = varInput

varInput = InputBox("Enter Ca.")
Sheets("Information").Range("M65").Value = varInput

varInput = InputBox("Enter TH.")
Sheets("Information").Range("N65").Value = varInput

varInput = InputBox("Enter Cl.")
Sheets("Information").Range("O65").Value = varInput

varInput = InputBox("Enter NO3.")
Sheets("Information").Range("P65").Value = varInput


Range("A27").Select

End Sub
Sub Fasthole()

Range("A27").Select

varInput = InputBox("Enter the date analyzed.")
Sheets("Information").Range("C66").Value = varInput

varInput = InputBox("At what depth did this section of the well end at?")
Sheets("Information").Range("E66").Value = varInput

varInput = InputBox("Enter the mud type (either Gel Chem or Floc Water).")
Sheets("Information").Range("F66").Value = varInput

varInput = InputBox("Enter the volume of mud landsprayed.")
Sheets("Information").Range("H66").Value = varInput

varInput = InputBox("Enter the specific gravity (1.0-1.5).")
Sheets("Information").Range("I66").Value = varInput

varInput = InputBox("Enter pH.")
Sheets("Information").Range("J66").Value = varInput

varInput = InputBox("Enter EC.")
Sheets("Information").Range("K66").Value = varInput

varInput = InputBox("Enter Na.")
Sheets("Information").Range("L66").Value = varInput

varInput = InputBox("Enter Ca.")
Sheets("Information").Range("M66").Value = varInput

varInput = InputBox("Enter TH.")
Sheets("Information").Range("N66").Value = varInput

varInput = InputBox("Enter Cl.")
Sheets("Information").Range("O66").Value = varInput

varInput = InputBox("Enter NO3.")
Sheets("Information").Range("P66").Value = varInput


Range("A27").Select

End Sub
Sub Intermediate()

Range("A27").Select

varInput = InputBox("Enter the date analyzed.")
Sheets("Information").Range("C67").Value = varInput

varInput = InputBox("At what depth did this section of the well end at?")
Sheets("Information").Range("E67").Value = varInput

varInput = InputBox("Enter the mud type (either Gel Chem or Floc Water).")
Sheets("Information").Range("F67").Value = varInput

varInput = InputBox("Enter the volume of mud landsprayed.")
Sheets("Information").Range("H67").Value = varInput

varInput = InputBox("Enter the specific gravity (1.0-1.5).")
Sheets("Information").Range("I67").Value = varInput

varInput = InputBox("Enter pH.")
Sheets("Information").Range("J67").Value = varInput

varInput = InputBox("Enter EC.")
Sheets("Information").Range("K67").Value = varInput

varInput = InputBox("Enter Na.")
Sheets("Information").Range("L67").Value = varInput

varInput = InputBox("Enter Ca.")
Sheets("Information").Range("M67").Value = varInput

varInput = InputBox("Enter TH.")
Sheets("Information").Range("N67").Value = varInput

varInput = InputBox("Enter Cl.")
Sheets("Information").Range("O67").Value = varInput

varInput = InputBox("Enter NO3.")
Sheets("Information").Range("P67").Value = varInput


Range("A27").Select

End Sub

I think you get the point. Any input appreciated.
Thanks
Wendy