Try replacing:
Range("A4").Select
with:
Cells(rows.Count,1).end(xlup).offset(1).select




Louis;703153 Wrote:

Hello

i need help to finalyse the vba code. the vba code is working but i
need to
find the first empty line and paste the data from the (excel
base.xls).

can someone help me

Thanks



Dim Wk As Workbook

Set Wk = Workbooks.Open(Filename:="C:\Databasere_validierun g.xls")


Windows("excel base.xls").Activate
Range("B1:B75").Select
Selection.Copy
Windows("Databasere_validierung.xls").Activate
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=True

'Wk.Close True'

End Sub


--
p45cal

*p45cal*
------------------------------------------------------------------------
p45cal's Profile: http://www.thecodecage.com/forumz/member.php?u=558
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=196730

http://www.thecodecage.com/forumz