VBA and Macro issue

Hi all sorry to bother you with what seems to be an easy question but I cant find a way around it. I have a booking system(Plain drop down list feeding into vlookup fields) I want to be able to copy the information across and I can do this easily. The problem is that I want the sheet to allow multiple bookings and every time one booking is done to allow a second one to be done and atm it just rewrites the previous booking, it wont move down the available cells!

Below is the code used, I know it could be neater but I am looking as to why it doesn’t work.

Sub Bookingtry()
'
' Bookingtry Macro
'
' Keyboard Shortcut: Ctrl+h
'
    Range("A2").Select
    Sheets("Booking Form").Select
    Range("B2").Select
    Selection.Copy
    Sheets("Booking sheet").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B2").Select
    Sheets("Booking Form").Select
    Range("B4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Booking sheet").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C2").Select
    Sheets("Booking Form").Select
    Range("B6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Booking sheet").Select
    Range("C2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D2").Select
    Sheets("Booking Form").Select
    Range("B8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Booking sheet").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E2").Select
    Sheets("Booking Form").Select
    Range("B10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Booking sheet").Select
    Range("E2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Booking Form").Select
    Range("B12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Booking sheet").Select
    Range("F2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("G2").Select
    Sheets("Booking Form").Select
    Range("B14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Booking sheet").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    With Sheets("Booking sheet").Cells(UsedRange.Columns(1).Rows.Count + 1, 1).Paste
    End With


End Sub


Source: forms

Leave a Reply