VBA to insert numbers

[IGPOD]

Hello, I've been trying to figure out how to insert a predefined set of values into a column but I have been unable to do it myself using activecell or selection or offset. What I'm looking for is the following numbers to be placed in any selected cell and populate from that cell downward:

671
1036
1100
1164
1192

any help would be greatly appreciated, google was no help pertaining to this specific topic, everything I as able to find was from known ranges etc.

 

[MARK858]

Maybe

Sub InsertNumbers1()
Dim MyArr As Variant
MyArr = Array(671, 1036, 1100, 1164, 1192)
ActiveCell.Resize(5) = Application.Transpose(MyArr)
End Sub

or

Sub InsertNumbers2()
Dim MyArr As Variant
MyArr = Array(671, 1036, 1100, 1164, 1192)
ActiveCell.Resize(UBound(MyArr) + 1) = Application.Transpose(MyArr)
End Sub

 

[IGPOD]

Maybe

Sub InsertNumbers1()
Dim MyArr As Variant
MyArr = Array(671, 1036, 1100, 1164, 1192)
ActiveCell.Resize(5) = Application.Transpose(MyArr)
End Sub

or

Sub InsertNumbers2()
Dim MyArr As Variant
MyArr = Array(671, 1036, 1100, 1164, 1192)
ActiveCell.Resize(UBound(MyArr) + 1) = Application.Transpose(MyArr)
End Sub

Thank you, Sir... I learned something new today! I really appreciate your help.

 

[Rick Rothstein]

Since you know how many values there are (it is a constant array of values), 5 in this case, you can do this with a single line of code...

Sub InsertNumbers()
  ActiveCell.Resize(5) = [{671;1036;1100;1164;1192}]
End Sub

 

[MARK858]

5 in this case

I suspect it isn't in reality as there are 12 in the image in the first post

 

[Rick Rothstein]

I suspect it isn't in reality as there are 12 in the image in the first post

It was 5 for the 5 values in the post (which were the 5 values I used in my example)... I assumed the OP would figure out that if he had 12 values, that he would change the 5 to 12. The point is that whatever the values are, what they are and how many of them there are is known and does not have to be calculated.