The following code should work. I have also added an error control for when people enter information that conflicts with data type you are expecting (eg. someone enters "asdasdf" for a phone number, it will prompt them to enter a proper data type).

Another way to avoid this "Data Mismatch" problem is to change all of your variable declarations to "String" or "Variant" which allows the user to enter whatever type of data they want.

[VBA]
Sub Button1_Click()
Dim emptyRow As Long

Dim i As Integer
Dim n As Integer
Dim m As Long
Dim a As Integer
'Make Sheet2 Active
Sheets(2).Activate
Dim lastrow As String
Dim c As Integer
Dim ClientStat As String
Dim StrCustRef As String
Dim StrCompName As String
Dim ContactName As String
Dim Telephone As Single
Dim email As String
Dim ContDate As Date
Dim DateSentOffice As Date
Dim ClientReplyDate As Date
Dim ListSentDate As Date
Dim orders As String
Dim linkOrders As String
ClientStat = "ES"
With Worksheets("Sheet2")

lastrow = Range("A65536").End(xlUp).Offset(1, 0).Row

On Error GoTo ErrHandler

StrCustRef = InputBox("Please enter Customer Reference")
StrCompName = InputBox("Please Enter Company Name")
ContactName = InputBox("Please enter the name of the person you were in contact with")
Telephone = InputBox("Please enter client telephone Number")
email = InputBox("Please enter client email Adress")
ListSentDate = InputBox("Please Enter the Date the List and/or presentation were sent to the client")
ContDate = InputBox("Please enter the date when the client replyied to the presentation")
DateSentOffice = InputBox("Please enter the date the client request was sent to the office")
ClientReplyDate = InputBox("Please enter the date the client replied")
orders = InputBox("Orders Y/N")

GoTo SkipErr

ErrHandler:

MsgBox "You have entered incorrect information, please enter correct information"

Resume

SkipErr:


.Range("A" & lastrow) = ClientStat
.Range("B" & lastrow) = StrCustRef
.Range("C" & lastrow) = StrCompName
.Range("D" & lastrow) = ContactName
.Range("E" & lastrow) = Telephone
.Range("F" & lastrow) = email
.Range("G" & lastrow) = ContDate
.Range("H" & lastrow) = DateSentOffice
.Range("I" & lastrow) = ClientReplyDate
.Range("J" & lastrow) = ListSentDate
.Range("K" & lastrow) = orders
End With
End Sub
[/VBA]