VBA copy function inconsistent

Question

Sheets("Median_make").Select
    Range("B3").Copy
     Range("H4").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Sheets("Median_make").Select
    Range("E3").Copy
    Range("K4").PasteSpecial xlPasteValues
Sheets("Median_make").Select
    Range("D3").Copy
    Sheets("Median_make").Range("J4").PasteSpecial xlPasteValues
Application.CutCopyMode = False

I am trying to copy cell values from the same worksheet but somehow it doesn't work. It would only paste one value out of the three. I am very new to this, any help would be much appreciated.

`Sheets("Median_make").Range("H4").Value = Sheets("Median_make").Range("B3").Value`. Assign the value directly, no need to use copy/paste. — Raymond Wu, Mar 04 '22 at 08:00
You also do not need to use `Select` most of the time. I recommend you to read up on [how to avoid using Select](https://stackoverflow.com/questions/10714251/how-to-avoid-using-select-in-excel-vba?rq=1) — Raymond Wu, Mar 04 '22 at 08:31

score 0 · Answer 1 · answered Mar 04 '22 at 09:19

The following code would perform your requirement and would not require you to have the sheet selected at all:

With Sheets("Median_make")
    .Range("H4").Value = .Range("B3").Value
    .Range("K4").Value = .Range("E3").Value
    .Range("J4").Value = .Range("D3").Value
End With

VBA copy function inconsistent

1 Answers1