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
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.
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