How about something like

sub Enter_Data()
dim NewValue

NewValue = inputbox("Enter the value for cell A1: ")
range("a1").value = NewValue

NewValue = inputbox("Enter the value for cell G2: ")
range("g2").value = NewValue

NewValue = inputbox("Enter the value for cell I8: ")
range("i8").value = NewValue

end sub