Whats wrong with this code?

[Phoenix_Turn]

Hi all,

This is my code so far, but it is not working:

Dim strE As String
Dim rngE As Range
Dim intE As Integer
Dim strA As String
Dim rngCell As Range, rngA As Range
Dim wksheet As Worksheet, i As Integer

'this becomes the active cell
Application.ActiveWorkbook.Worksheets("Sheet2").Activate
Application.ActiveWorkbook.Worksheets("Sheet2").Range("a1").Select

Set rngCell = Application.ActiveWorkbook.Worksheets("Sheet1").Range("a1")
Set wksheet = Application.ActiveWorkbook.Worksheets("Sheet1")

Do Until IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop

'For Each rngA In rngCell.Columns(1).Cells
If IsEmpty(ActiveCell) Then
ActiveCell.Value = rngCell
End If
'Next rngA

Now my main purpose is like this:

-Sheet 1, column A has a column of values
-Transfer those values to the first empty cell in row A in sheet 2, it below existing data in sheet2

-sheet 1 column B has a column of values
-Transfer those values to the first empty cell in row B in sheet 2, that is it is below the existing data in sheet2 column b

etc...

this can be done using a loop structure and an activecell, currentregion, resize format offsett function or anything that is simple.

Thanks guys! I appreciate your help

 

[kpark91]

xD Pohenix_Turn :P
Maybe you could impress your manager with a faster (VoG's) code
and teach him from scratch :P

The he/she'll really love you XD