Hey,
Currently I have this code:
Code
Sub ViewContacts()'
' ViewContacts Macro
'
'
Sheets("Contacts").Select
End Sub
Sub AddContact()
'
' AddContact Macro
'
'
Range("E8").Select
Selection.Copy
Sheets("Contacts").Select
Range("C10").Select
ActiveSheet.Paste
Sheets("Sheet3").Select
Range("E9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Contacts").Select
Range("D10").Select
ActiveSheet.Paste
Sheets("Sheet3").Select
Range("E10").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Contacts").Select
Range("E10").Select
ActiveSheet.Paste
Sheets("Sheet3").Select
Range("E11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Contacts").Select
Range("F10").Select
ActiveSheet.Paste
Sheets("Sheet3").Select
Range("E12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Contacts").Select
Range("G10").Select
ActiveSheet.Paste
End Sub
Display More
The issue i'm having is that I want the text which is copied to actually add a new row (So i'm making a table of my clients details but using another page to type the information in and the macro to paste it into the contacts sheet) Hope i explained it well enough!