Adding into a Series of Numbers

[999HelpPlease]

10 - Example Number

Let's say I have a spreadsheet and I wanted to add cell example "H1" to the entire column of H.

How do I write this in VBA?

The number 10 could change but the 10 would already be added and it could stay that way.

I am confused on how to write this one. Can anyone give me some suggestions?

 

[Joe4]

I am sorry, your post is very confusing.
Can you try rephrasing it?

 

[999HelpPlease]

I will try. If you look at the spreadsheet below. What I want to do is take the 10 and add it into every number in that column. So it would add it to all the 3's and they would become 13. Does this help.

[TABLE="width: 192"]
<colgroup><col width="64" style="width:48pt" span="3"> <tbody>[TR]
[TD="width: 64, bgcolor: transparent"][/TD]
[TD="width: 64, bgcolor: transparent"][/TD]
[TD="width: 64, bgcolor: transparent, align: right"]10[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"][/TD]
[TD="bgcolor: transparent"][/TD]
[TD="bgcolor: transparent"][/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"][/TD]
[TD="bgcolor: transparent"][/TD]
[TD="bgcolor: transparent"][/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]1[/TD]
[TD="bgcolor: transparent, align: right"]2[/TD]
[TD="bgcolor: transparent, align: right"]3[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]1[/TD]
[TD="bgcolor: transparent, align: right"]2[/TD]
[TD="bgcolor: transparent, align: right"]3[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]1[/TD]
[TD="bgcolor: transparent, align: right"]2[/TD]
[TD="bgcolor: transparent, align: right"]3[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]1[/TD]
[TD="bgcolor: transparent, align: right"]2[/TD]
[TD="bgcolor: transparent, align: right"]3[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]1[/TD]
[TD="bgcolor: transparent, align: right"]2[/TD]
[TD="bgcolor: transparent, align: right"]3[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]1[/TD]
[TD="bgcolor: transparent, align: right"]2[/TD]
[TD="bgcolor: transparent, align: right"]3[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]1[/TD]
[TD="bgcolor: transparent, align: right"]2[/TD]
[TD="bgcolor: transparent, align: right"]3[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]1[/TD]
[TD="bgcolor: transparent, align: right"]2[/TD]
[TD="bgcolor: transparent, align: right"]3[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]1[/TD]
[TD="bgcolor: transparent, align: right"]2[/TD]
[TD="bgcolor: transparent, align: right"]3[/TD]
[/TR]
</tbody>[/TABLE]

 

[Joe4]

OK. Where is this number coming from?
Will it be a cell on a sheet, or an input asked for when a macro is run?

Note, that if it is a cell on your sheet, this can be done very easily without any VBA.
Just highlight the number and click Copy
Then, highlight the whole range you want to paste it to
Then right-click and select Paste Special -> Add -> OK

 

[Joe4]

Here is what a VBA solution would look like, adding the value from K1 to all the cells in column H, down to the last one.

Sub MyCopyMacro()

    Dim lastRow As Long
    
'   Find last row in column H
    lastRow = Cells(Rows.Count, "H").End(xlUp).Row
    
'   Add value from K1 to column H
    Range("K1").Copy
    Range("H1:H" & lastRow).PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False

End Sub

If you are looking for an Input solution, just incorporate the same InputBox methodology we discussed in your other thread.