run time error '1004' Help!!!!

[HushHoney]

Hello,

can anyone help me figure out why I am getting this message:
"run time error '1004' application-defined or object-defined error"

the problem line where is shows the error is:


range("A1").select

and here is all of the code:


Sub HorizontalLoop()
Dim lCol As Long
Sheets("output").Select

For lCol = 1 To 100
Dim inputrange As String
If Not IsEmpty(Cells(lCol).Value) Then
inputrange = Cells(1, lCol).ValueActiveCell.EntireColumn.Select
Selection.Copy
Sheets("input").Select
range("A1").Select
ActiveSheet.Paste
Sheets("output").Select

End If

Next lCol
End Sub

any help is much appreciated :)
Thanks
H

[Paul_Hossler]

I think there were some copy/paste errors

try something like this

Usually you don't need to .Select something to use or act on it



Option Explicit
Sub HorizontalLoop()

Dim lCol As Long
Dim inputrange As String

Sheets("output").Select

For lCol = 1 To 100
If Not IsEmpty(Cells(1, lCol).Value) Then ' Row 1 ?????
'assuming that 2 lines were accidently joined, and they should have been
'inputrange = Cells(1, lCol).Value
'ActiveCell.EntireColumn.Select

'this does it from 'output' to 'input' which seems backwards to me
Columns(lCol).Copy Sheets("input").Columns(lCol)
End If

Next lCol
End Sub