Macro to Copy into active Cell

[ziteac]

I am new to VBA and I am trying to copy Cells B5-E5 and pasting the values into the active cell I have selected. My issue is that sometimes the column will change I will be pasting in column B-E or F-I and J-M. I was hoping someone can point me in the right direction on how to figure this out.

 

[Joe4]

Welcome to the Board!

If you want to copy paste the from B5:E5 to whatever the ActiveCell is, you only need this one line code.

Sub MyCopy()
    Range("B5:E5").Copy ActiveCell
End Sub

 

[ziteac]

That is what I originally started with however it never copies the data from those cells and it changes the cell format.

I am not sure why but it looks as if it is posting cells B8-E8 also if I paste on the following Row it pastes cells B9-E9.

Sub Bonus_Bonus()
'
' Bonus_Bonus Macro
'
' Keyboard Shortcut: Ctrl+Shift+V
'
       Range("B5:E5").copy ActiveCell
End Sub

This is the code I have

 

[Joe4]

That is what I originally started with however it never copies the data from those cells and it changes the cell format.

If you want to JUST copy the values (I assume then that you have formulas in these cells) and no formatting from the original cells, try this:

Sub MyCopy()
    Range(ActiveCell, ActiveCell.Offset(0, 3)).Value = Range("B5:E5").Value
End Sub

 

[ziteac]

Thanks Joe that is what I needed, I appreciate the help.

 

[Joe4]

You are welcome.