Copying and pasting information using a form into next empty row on a different sheet

[sheac]

Hi,
I am struggling to copy some information which has been collected on a sheet called "course entry". I want to copy the information onto the next empty row on a different sheet called courses.

I have tried to re-record this macro numerous times and it still just replaces the same information in row 27.

In column A i also need the code to add the next record number eg if it is on 25, i need excel to realise the next row is 26.

This is the code from recording my macro

Sub savecoursenew()
'
' savecoursenew Macro
'

'
Sheets("Courses").Select
Range("B20").Select
Selection.End(xlDown).Select
Range("B27").Select
Sheets("Course Entry").Select
Range("B19:F19").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Courses").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End Sub


From reading other posts i think i need to use ofset but no idea where to put it or how to word it.

Sorry i have never learnt code

Any help would be greatly appreciated.

 

[shadow12345]

You could try this,

Sub CopytoBlank()
Sheets("Course Entry").Select
Range("B19:F19").Select

Sheets("Courses").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

End Sub

Give that a go, and welcome to the board.