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
Display More