M
Max
Seeking help to modify the sub below
to resolve the issues (1) & (2) remarked
Thanks for insights
Sub CopyPaste1()
Sheets("Credit MIS").Range("H7:H10").Copy
Sheets("Asia").Select
Range("IV7").Select
Selection.End(xlToLeft).Select
'(1). need the selection above to offset 1 col to the right
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
'(2). need to repeat the above copy n paste operation
'for other source ranges in "Credit MIS" viz:
'H14:H17
'H21:H28
'H31
'H35:H38
'H42:H48
End Sub
to resolve the issues (1) & (2) remarked
Thanks for insights
Sub CopyPaste1()
Sheets("Credit MIS").Range("H7:H10").Copy
Sheets("Asia").Select
Range("IV7").Select
Selection.End(xlToLeft).Select
'(1). need the selection above to offset 1 col to the right
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
'(2). need to repeat the above copy n paste operation
'for other source ranges in "Credit MIS" viz:
'H14:H17
'H21:H28
'H31
'H35:H38
'H42:H48
End Sub