Hi,
I've been trying to copy multiple cells from sheet 1 to sheet 3. But every time that I will add a cell on the range it is giving me an error message "That Command cannot be used on multiple selections."
There are also other cell that I want to copy and paste it on a specific cell in sheet3
for example
Sheet1: b4 and b6 I need to paste it in sheet3 cell is E4 and B4
so the B4 in sheet 1 should be pasted in sheet3 E4 and b6 should be pasted in B4.
Code
- Sub Button40_Click()
- Range("D10:D12,D15,D22,D25,D32:D33,D38:D42,D47:D50,D53,D55,D57,D63,G3").Select
- Selection.Copy
- Sheets("Sheet3").Select
- 'Range("I4").End(xlUp).Select
- lMaxRows = Cells(Rows.Count, "I").End(xlUp).Row
- Range("I" & lMaxRows + 1).Select
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=True
- Sheets("Sheet1").Select
- Range("I4").Select
- End Sub