Copy/Paste Error Special Paste

Question

I'm trying to rewrite someone's program, but I'm not familiar with VBA. I've tried many different ranges with .End(x1Up) and (x1Down). I understand the Up is the better option, but it just keeps pasting it in the same row every time and doesn't drop down to the next one. Here's my code (many tries have been commented out):

Sub Save_History()

Sheets("Simple Calculation").Select

Range("A10:J10").Select

Selection.Copy

    'Sheets("Media Data History").Select

    'Range("A65536").End(xlup).Offset(1,0)
    'If Range("A1") <> "" Then
    'Range("A1").End(xlUp).Offset(1, 0).Select
    'End If
    '   Range("A1").End(xlUp).Select

    'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

score 0 · Answer 1 · edited May 23 '17 at 11:50

0

This should work but I encourage you to take a look at THIS Post

Sub Save_History()

    Sheets("Simple Calculation").Select

    Range("A10:J10").Select

    Selection.Copy

    Sheets("Media Data History").Select

    Range("A65536").End(xlup).Offset(1,0).Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End Sub

edited May 23 '17 at 11:50

Community

1
1

answered Jun 02 '15 at 17:29

simpLE MAn

1,582
13
22

Amy Snyder · Accepted Answer · 2015-06-02T20:32:54.010

0

Got it!!

Sub Save_History()

Sheets("Simple Calculation").Select

Range("A10:J10").Select

Selection.Copy

    Sheets("Media Data History").Select

              Range("A" & Rows.Count).End(xlUp).Offset(1).Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

edited Jun 02 '15 at 20:32

answered Jun 02 '15 at 19:01

Amy Snyder

23
1
4

Your `If` does not do anything except wasting time. You can remove it and it will still work. – simpLE MAn Jun 02 '15 at 19:48
I will do that, Thanks! – Amy Snyder Jun 02 '15 at 20:32

Copy/Paste Error Special Paste

2 Answers2