VBA

Copper Contributor

 

I  have some simple code:

Sub Macro5()
'
' Macro5 Macro
'

'
Sheets("Assays").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Assay Entry").Select
Range("C4:C7").Select
Selection.Copy
Sheets("Assays").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Assay Entry").Select
Range("E8:E14").Select
Selection.Copy
Sheets("Assays").Select
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Assay Entry").Select
Range("C15:C16").Select
Selection.Copy
Sheets("Assays").Select
Range("L2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Assay Entry").Select
Range("C4:C16").Select
Selection.ClearContents
Range("C4").Select
End Sub

That runs a Macro that enters information from one sheet to the next. It copies everything over, but when I run it again it omits some of the information that was previously transferred.

6/1/201123456B50.76%1.27%0.51%1.02%0.76%5.08%20.30%44
5/28/202147196131738A       44

 

Anybody have any ideas?

0 Replies