End Down a second time
 

Does anyone know what is wrong with this code?


The first time I run this macro it works fine and the correct info goes
where it needs to go.
Each and every other time I run it only the first section works.
If run many times it should give the same results on each line.

This is the code that I am using now.


This section works fine.

Sheets("Sheet1").Select
Range("A4").Select
Range("D4").Select
Selection.Copy
Sheets("Audilla").Select
Range("A34").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

This section works fine. the first time only.

Sheets("Sheet1").Select
Range("AH34").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Audilla").Select
Range("B34").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

This section works fine the first time only.



Sheets("Sheet1").Select
Range("AQ34").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Audilla").Select
Range("C34").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False



This section works fine the first time only

Sheets("Sheet1").Select
Range("AZ34").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Audilla").Select
Range("D34").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

End Down a second time
 

Check your other post.

Ed Davis wrote:

Does anyone know what is wrong with this code?

The first time I run this macro it works fine and the correct info goes
where it needs to go.
Each and every other time I run it only the first section works.
If run many times it should give the same results on each line.

This is the code that I am using now.

This section works fine.

Sheets("Sheet1").Select
Range("A4").Select
Range("D4").Select
Selection.Copy
Sheets("Audilla").Select
Range("A34").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

This section works fine. the first time only.

Sheets("Sheet1").Select
Range("AH34").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Audilla").Select
Range("B34").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

This section works fine the first time only.

Sheets("Sheet1").Select
Range("AQ34").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Audilla").Select
Range("C34").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

This section works fine the first time only

Sheets("Sheet1").Select
Range("AZ34").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Audilla").Select
Range("D34").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

--

Dave Peterson