Hi there,

I have the following sub routine which records data on row 5 (Starting from Column C) but I'm still very new to VBA so could do with some help making my system more efficient please.

Sub Record_data()

Sheets("Data").Select
Sheets("Data").Rows("5:5").Select
Sheets("Data").Range("B5").Activate
Selection.Copy
Sheets("Data").Rows("7:7").Select
Sheets("Data").Range("B7").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Data").Rows("7:7").Select
Sheets("Data").Range("B7").Activate
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

End Sub
As you can see the code itself probably isn't running as smoothly as it can but the big problem is in the way it works. Everything gets cut every second and moves down a row (so the most recent recording is at the top) but I know it would be much easier for the new line every second to just occupy the next blank row each second (most recent recording at the bottom). Could somebody help me do this please?

Kind regards,

PercivalP