Hey guys, need some help with VBA for excel... Hopefully someone here knows it...
Basically what im trying to do is take a 2x4 section of data at a time and copy/paste it over one at a time to the same cell. I have my macro mark each row i have copy/pasted over with an X so the macro knows what rows to copy...
The problem is i dont know VBA that well and instead of taking the whole 2x4 row and pasting it together, i am using the offset function and copy/pasting one cell at a time. (See code below.)
VBA is self taught for now, so my coding is very inefficient, and this macro takes anywhere from 10-120 secs.. Any one know how to recode this?
*****
Do While Len(ActiveCell) = 6
ActiveCell.Offset(0, -1).Select
ActiveCell.FormulaR1C1 = "X"
ActiveCell.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "X"
ActiveCell.Offset(-1, 1).Select
Selection.Copy
Sheets("JE").Select
Range("D7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Input").Select
'Copy $Value over
ActiveCell.Offset(0, 1).Select
Selection.Copy
Sheets("JE").Select
Range("f7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Input").Select
ActiveCell.Offset(0, 1).Select
Selection.Copy
Sheets("JE").Select
Range("h7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Input").Select
ActiveCell.Offset(0, 1).Select
Selection.Copy
Sheets("JE").Select
Range("i7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Input").Select
ActiveCell.Offset(1, -3).Select
Selection.Copy
Sheets("JE").Select
Range("D8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Input").Select
ActiveCell.Offset(0, 1).Select
Selection.Copy
Sheets("JE").Select
Range("f8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Input").Select
ActiveCell.Offset(0, 1).Select
Selection.Copy
Sheets("JE").Select
Range("h8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Input").Select
ActiveCell.Offset(0, 1).Select
Selection.Copy
Sheets("JE").Select
Range("i8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Input").Select