Forum Discussion

AHMED_KARRAM's avatar
AHMED_KARRAM
Copper Contributor
Feb 20, 2021

run-time error '1004'

any body can help   Sub Customer() ' ' Customer Macro ' ' Range("D3:D8").Select Selection.Copy ActiveWindow.ScrollWorkbookTabs Sheets:=1 Sheet10.Select Range("B2:B3").Se...
Macros and VBA
HansVogelaar's avatar
HansVogelaar
MVP
Feb 20, 2021

AHMED_KARRAM 

It isn't really necessary to select ranges in a macro.

Sub Customer()
'
' Customer Macro
'

'
    Sheet9.Range("D3:D8").Copy
    Sheet10.Range("B4").End(xlDown).Offset(1, 0).PasteSpecial _
        Paste:=xlPasteValues, SkipBlanks:=False, Transpose:=True
    Sheet9.Range("D3:D8").ClearContents
End Sub

Resources