I have been attempting to get code to copy and paste cells, then move them to another sheet, and delete the original file that was copied.

I did this through Record Macro, and I want to cry...

If Microsoft thought about anything they didn't think about how to record macros in their own language. There is so much fat in it that I am having a hard time to figure it out what is actually needed.

Here is the code.

Option Explicit

Sub Test()
'
' Test Macro
'

'
    Selection.Copy
    ActiveCell.Offset(46, 39).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(-43, -39).Range("A1:K1").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(43, 40).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(-40, -40).Range("A1:K1").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(40, 41).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(-37, -41).Range("A1:K1").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(37, 42).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(-34, -42).Range("A1:K5").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(34, 43).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(-46, -28).Range("A1:K1").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(46, 29).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(-43, -29).Range("A1:K1").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(43, 30).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(-40, -30).Range("A1:K1").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(40, 31).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(-37, -31).Range("A1:K1").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(37, 32).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(-32, -31).Range("A1:B1").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(32, 32).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(-34, -28).Range("A1:F1").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(34, 29).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(-32, -29).Range("A1:F1").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(32, 30).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(-30, -30).Range("A1:F1").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(30, 31).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(-25, -51).Range("A1:Z3").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(25, 52).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(-21, -52).Range("A1:Z3").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(21, 53).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(-17, -53).Range("A1:Z3").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(17, 54).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(-13, -54).Range("A1:Z3").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(13, 55).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(-8, -53).Range("A1:D1").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(8, 54).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(-8, -46).Range("A1:E1").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(8, 47).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(-8, -37).Range("A1:E1").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(8, 38).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(0, -19).Range("A1:T1").Select
    Application.CutCopyMode = False
    Selection.Cut
    Application.CutCopyMode = False
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Cut
    Sheets("NCMR Data").Select
    ActiveCell.Offset(-7, -2).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(-2, 20).Range("A1").Select
    Selection.Copy
    ActiveCell.Offset(2, -21).Range("A1").Select
    ActiveSheet.Paste
End Sub
Ultimately I will be wanting the pasting to be done via the last row, but for now this will work... if I can figure out what in god's green earth Microsoft actually put together for me...

Can someone shed some light on what is going on? I'm about to re-write this code to actually make sense to a human being...