Forum Discussion

Copper Contributor

Jul 11, 2021

Solved

cannot paste special with macro

im trying to do something like this selected cells will insert the data in the above table a video is attached to show what i mean i dont know how to type macros so i recorded the acti...

Jul 11, 2021

Perhaps

Sub Macro2()
    Worksheets("TargetSheet").Range("A1").End(xlDown).Offset(1, 0).Resize(1, 2).Value = Worksheets("MainSheet").Range("A14:B14").Value
    Worksheets("MainSheet").Range("A14:B14").ClearContents
End Sub

HansVogelaar

MVP

Jul 11, 2021

jaypee1650

Try this:

Sub Macro2()
    Range("A1").End(xlDown).Offset(1, 0).Resize(1, 2).Value = Range("A14:B14").Value
    Range("A14:B14").ClearContents
End Sub

jaypee1650

Copper Contributor

Jul 11, 2021

this works in this example but i need to do it with multiple sheets each sheet contains specific data and one main sheet which i will insert the data from

HansVogelaar

MVP

Jul 11, 2021

jaypee1650

Perhaps

Sub Macro2()
    Worksheets("TargetSheet").Range("A1").End(xlDown).Offset(1, 0).Resize(1, 2).Value = Worksheets("MainSheet").Range("A14:B14").Value
    Worksheets("MainSheet").Range("A14:B14").ClearContents
End Sub

jaypee1650
Copper Contributor
Jul 11, 2021
thats what i need thanks