HELP: What is wrong with this macro??

**henwood** · 04-23-2012, 07:22 AM

Sub EnterDe()
'
' EnterDe Macro
'

'
Application.ScreenUpdating = False
Sheets("Details").Select
Rows("4:4").Select
This is it says where the problem is Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Detail Enter").Select
Range("B3").Select
Selection.Copy
Sheets("Details").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("Detail Enter").Select
Range("B16").Select
Selection.Copy
Sheets("Details").Select
Range("N4").Select
ActiveSheet.Paste
Sheets("Detail Enter").Select
Range("B4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Details").Select
Range("B4").Select
ActiveSheet.Paste
Sheets("Detail Enter").Select
Range("B5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Details").Select
Range("C4").Select
ActiveSheet.Paste
Sheets("Detail Enter").Select
Range("B6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Details").Select
Range("D4").Select
ActiveSheet.Paste
Sheets("Detail Enter").Select
Range("B7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Details").Select
Range("E4").Select
ActiveSheet.Paste
Sheets("Detail Enter").Select
Range("B8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Details").Select
Range("F4").Select
ActiveSheet.Paste
Sheets("Detail Enter").Select
Range("B9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Details").Select
Range("G4").Select
ActiveSheet.Paste
Sheets("Detail Enter").Select
Range("B10").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Details").Select
Range("H4").Select
ActiveSheet.Paste
Sheets("Detail Enter").Select
Range("B11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Details").Select
Range("I4").Select
ActiveSheet.Paste
Sheets("Detail Enter").Select
Range("B12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Details").Select
Range("J4").Select
ActiveSheet.Paste
Sheets("Detail Enter").Select
Range("B13").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Details").Select
Range("K4").Select
ActiveSheet.Paste
Sheets("Detail Enter").Select
Range("B14").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Details").Select
Range("L4").Select
ActiveSheet.Paste
Sheets("Detail Enter").Select
Range("B15").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Details").Select
Range("M4").Select
ActiveSheet.Paste
Sheets("Sheet1").Visible = True
Sheets("Sheet1").Select
Range("J1:J14").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Visible = False
Sheets("Detail Enter").Select
Range("B3:B16").Select
ActiveSheet.Paste
Range("A3:B16").Select
Range("B16").Activate
Application.CutCopyMode = False
Selection.Cut
Range("A3:B16").Select
ActiveSheet.Paste
Sheets("Detail Enter").Select
Range("A1").Select
Sheets("Details").Select
Application.ScreenUpdating = True
End Sub

**Cutter** · 04-23-2012, 07:33 AM

Welcome to the forum, but you'd better read the forum rules - especially the one regarding code tags.

**NBVC** · 04-23-2012, 07:53 AM

Also look at the rule about titles before proceeding....

And, you might want to give an explanation of what the intent of the macro is and what is the actual error/problem.. etc. I.e. give details. Nobody is going to try to guess what your problem is....