Data not being transfered to firs column

[EDUCATED MONKEY]

XP Professional office 2003 <?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
<o></o>
Having difficulty spotting my error, the code I am using was kindly given to me and I modified it for my needs, it is meant to places the data in the next available column which it does with the exception of column A, which is never filled and is left blank which causes some difficulty later in the process <o></o>
<o></o>
<o></o>
<o></o>
Sub MoveIsbns()<o></o>
'<o></o>
' MoveIsbns Macro<o></o>
' Macro recorded <?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-comffice:smarttags" /><st1:date Month="8" Day="1" Year="2011">01/08/2011</st1:date> by Peter Hayward<o></o>
'<o></o>
' Keyboard Shortcut: Ctrl+Shift+V<o></o>
<o></o>
<o></o>
With Worksheets("PROCESS_ISBN")<o></o>
.Range("F1:G1").EntireColumn.copy<o></o>
With Worksheets("ISBNs")<o></o>
.Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1).PasteSpecial<o></o>
End With<o></o>
End With<o></o>
Application.CutCopyMode = False<o></o>
End Sub<o></o>

 

[meldoc]

Hello

Try.

Sub MoveIsbns()
'
' MoveIsbns Macro
' Macro recorded 01/08/2011 by Peter Hayward
'
' Keyboard Shortcut: Ctrl+Shift+V


With Worksheets("PROCESS_ISBN")
.Range("F1:G1").EntireColumn.Copy
With Worksheets("ISBNs")
col = IIf(.Range("A1") = "", 0, 1)
.Cells(1, Columns.Count).End(xlToLeft).Offset(0, col).PasteSpecial
End With
End With
Application.CutCopyMode = False
End Sub

 

[EDUCATED MONKEY]

Sub TRANSFFER4()
'
' TRANSFFER4 Macro
' Macro recorded 04/08/2011 by Peter Hayward
'
' Keyboard Shortcut: Ctrl+Shift+E
'
Dim wsSource As Worksheet, wsDest As Worksheet
Dim q As Long, Nextrow As Long
Dim total As Integer

Dim rawdata As Integer

Dim Label2 As String

Application.ScreenUpdating = False
total = 188
q = 96

Set wsSource = Worksheets("ISBNs")
Set wsDest = Worksheets("COMPLETED ISBNs")

For rawdata = 1 To total

Nextrow = wsDest.Range("A" & Rows.Count).End(xlUp).row 'Next empty row on wsDest
wsDest.Cells(Nextrow, "A").Resize(q).Value = wsSource.Cells(1, "A").Resize(q).Value
wsDest.Cells(Nextrow, "B").Resize(q).Value = wsSource.Cells(1, "B").Resize(q).Value

wsSource.Select

Columns("A:B").Select ' shunt data along
Selection.delete Shift:=xlToLeft

Next rawdata

Application.ScreenUpdating = True
End Sub

 

[EDUCATED MONKEY]

Hello

Try.

Sub MoveIsbns()
'
' MoveIsbns Macro
' Macro recorded 01/08/2011 by Peter Hayward
'
' Keyboard Shortcut: Ctrl+Shift+V


With Worksheets("PROCESS_ISBN")
.Range("F1:G1").EntireColumn.Copy
With Worksheets("ISBNs")
col = IIf(.Range("A1") = "", 0, 1)
.Cells(1, Columns.Count).End(xlToLeft).Offset(0, col).PasteSpecial
End With
End With
Application.CutCopyMode = False
End Sub

Perfection thanks very much
pete<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>