0

In the code below I am able to past from one worksheet to another, but when i try to grab the merged range of ("A5:B9") to paste into a another merged range of (B6:E6) on another work sheet, i cant seem to get it to work, nothing happens.


Dim wsCover As Worksheet

Dim wsBusinessEval As Worksheet

Set wsCover = ThisWorkbook.Sheets("Cover")

Set wsBusinessEval = ThisWorkbook.Sheets("BusinessEval")

wsBusinessEval.Range("E5").Copy

wsCover.Range("B18").PasteSpecial Paste:=xlPasteValues

wsBusinessEval.Range("E9").Copy

wsCover.Range("B20").PasteSpecial Paste:=xlPasteValues

wsBusinessEval.Range("E7").Copy

wsCover.Range("B21").PasteSpecial Paste:=xlPasteValues

wsBusinessEval.Range("E10").Copy

wsCover.Range("B22").PasteSpecial Paste:=xlPasteValues

wsBusinessEval.Range("E11").Copy

wsCover.Range("B23").PasteSpecial Paste:=xlPasteValues

wsBusinessEval.Range("A5:B9").Copy

wsCover.Range("B6").PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False

End Sub```
Ihumanl
  • 3
  • 3
  • 1
    For the merged ranges `wsCover.Range("B6").Value = wsBusinessEval.Range("A5").Value` should do it. Each of your `.Copy ... .PasteSpecial Paste:=xlPasteValues` statements can be rewritten like this: `.value = .value`. Advisable. (see: [Avoid Select](https://stackoverflow.com/questions/10714251/how-to-avoid-using-select-in-excel-vba) – ouroboros1 May 24 '22 at 12:12

0 Answers0